
Masser af programmer til: 


Commodore 64, Amstrad, Spectrum, Oric, Ente 


VIC 20, Memotech, IBM, Lambda, Power, Marathon 
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SOFT SPECIAL er fremstillet 
af redaktionen pd mdneds- 
bladet ’ 'Alt om Data’ ’. Samt- 
lige aftrykte programlistnin- 
ger er afprovet og gengivet 
efter korrektur. 
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Special", send da kassette- 
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til redaktionen. Alle 1 blade 
eller p6 anden m&de oflent- 
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Sidst i 1985 lancerede Activision 
officielt ”Little Computer People” 
ved en stort opsat pressebegiven- 
hed i London. Der var specielt 
indbudte gcester fra hele verden, 
og som det eneste datablad i 
Skandinavien var SOFT Special 
med. Vores udsendte medarbej- 
der Rasmus Kristiansen rapporte- 
rer fra verdensbegivenheden. 



■ "1-2-3. testning". Vi er en 
hdndfuld pressefolk, der er 
kommet lidt tidligt. Folk ira 
Activision er stadig i gang 
med at gore klar. Der er hek- 
tisk aktivitet, alt skal vcere 
tcerdigt om mindre end en 
halv time. Den 31. oktober. 
1985. kl. 12,30, begynder en 
verdensbegivenhed nemlig: 
The official Launch ot "The 
Little Computer People Re¬ 
search Project", lanceringen 
at LCP. - Og beromtheder tra 
en lang rcekke lande er ind- 
budt pd linie med verdens- 
tagpressen. Activision var- 
merop. "1-2-3, this is a test". 
Stedet er "The Pied Piper Vi¬ 
deo Cate". Bag en lille faca¬ 
de pd Argyll Street, kun fd 
skridt fra Londons beromte 
Oxford Circus, skjuler sig et 
sted af imponerende dimensi- 
oner. Har du bevceget dig 
ned af trappen, modes du af 
flere kcempe-rum med mas- 
ser af TVskcerme pd vcegge- 
ne! Heraf navnet, "The Video 
Cafe". Heraf ogsd grunden til, 
at Activision har valgt stedet 
til den officielle lancering af 
"'Little Computer People": De 
mange skcerme ncesten be- 
der om, der bliver vist compu- 
terspil pd dem. Det impone¬ 
rende sted er pd kun otte md- 
neder blevet en af Londons 
"hotteste" insteder for den ri- 
geste del af de unge, legesy- 
ge London-Kids. "The Video 
Cale"er kendt for sin unikke 
stil, atmosfceren, og the hip vi¬ 
deos. Nogle mener, deka- 
dencen tager overhdnd. ndr 
Londons rige ungdom en til- 
fceldig torsdag aften forlyster 
sig med i "The Video Cafe" at 
danse tcet ved Marilyn Mon¬ 
roes stillbillede pd en skcerm. 
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Men trods det, er det "The Vi¬ 
deo Cafe", Activision har lej- 
et. Og rygter snakker i kroge- 
ne om, at det koster et sted 
mellem 25 og 30.000 kroner at 
leje "The Video Cafe" midt i 
London en hel dag. Oveni 
kommer drinks i baren og 
den mad, de mange indbud- 
te gcester kan scette til livs 
sammen med pressen. Men 
mon ikke Activision har pen- 
gene... 

Ghostbusters igen 

Efter en smd 10 minutter, 
blcendes der op for omkring 
20 kcempemonitors og en 7-8 
mega skcerme af den rigtig 
store slags, der hcenger pd 
vceggen og fylder knap 2 me¬ 
ter i hojden. En musik-video 
fylder rummet, hvor snart 50 
pressefolk har samlet sig. 
"Who ya' gonna call?", dro- 
ner det ud gennem de store 
hojttalere i loftet. "Ghostbuste- 
res!" - svarer Ray Parker Jr. 
med en vaskecegte ameri- 
kansk accent. Musikvideoen 
fylder rummet. mens en halv 
snes journalister griber pen- 
nen og gar notater om denne 
lidt scere opstart pd drets 
Activision-begivenhed. 
Ghostbusters-videoen fortscet- 
ter for fuldt dron igen og igen. 
alt imens flere og flere bliver 
lukket ind gennem sikker- 
hedsvagteme. Klokken bliver 
halv et, og lyset blcendes 
langsomt ned, Ghostbusters 
fader ud og en ung slipse- 
klcedt Activision-talsmand 
byder velkommen. 

-1 har sikkert allerede undret 
jer over, hvorfor Ghostbusters 
korer. Og mange af jer har 
ganske sikkert ogsa allerede 
tcenkt: Hvad har Ghostbusters 


med "Little Computer Peop¬ 
le" at gore? - Det skal jeg for- 
tcelle jer! 

Helt specielle gcester 

- For netop et dr siden, pd den¬ 
ne dato og lige prcecis sam- 
me tid, lancerede Activision 
officielt verdens hidtil mest 
solgte spil. Ja, Ghostbusters! 
Intet andet spil har solgt sd 
godt som Ghostbusters ... 
(lang pause, stilhed)... Nu for- 
venter Activision, at denne 
verdensrekord vil blive sldet 
... (dyb stilhed).. . Af "The Litt¬ 
le Computer People Research 
Project, House on af Disk". 

- Derfor, netop derfor. fortscet- 
ter han, sker den officielle lan¬ 
cering af LCP pd netop denne 
dag, samme tidspunkt. "The 
Little Computer People Re¬ 
search Project" vil blive vor- 
dens mest solgte stykke 
computer-software. Pludselig 
blcendes der op for de mange 
wall-size skcerme igen, og 
skcermbilledet fra "Little Com¬ 
puter People", det lille hus. to¬ 
ner frem. De mange, der al- 
drig har set programmet for, 
stirrer i dndelos spcending. 

- Vi har flojet to helt specielle 
gcester hertil fra Califomien. 
lyder det over mikrofonen. 
Lad os byde velkommen til 
Oysten og Harold! 

Folk klapper, mens en lille 
sprite dbner en dor pd skcer- 
men og lige sd stille valser ind 
i computerhusets grafiske pej- 
sestue. "Say hello to Harold". 
"Hello Harold!" 

Efter beundringer af Harolds 
skcerm-husudforskning, lyder 
det igen fra den slipseklcedte: 
"Lad os byde velkommen til 
endnu en helt speciel geest, 
Mr. David Crane, ogsd fra Ca¬ 
lifomien." 















































































































































The Show must go on 

David Crane kendes ai man¬ 
ge garvede computer-freaks 
som skaberen at utallige 
kcempehits, heriblandt Pitfall- 
serien og Ghostbusters. SOFT 
Special har tidligere intervie- 
wet Crane, og nu er han her 
altsd igen, denne verdensbe- 
ramthed inden tor software, 
Midt i London, til cere tor an- 
dre data-beramtheder og 
pressen, Hvortor? David Cra¬ 
ne st6r nemlig ogsd bag "The 
Little Computer People". Mi- 
krofonen overlades til Crane. 
Han rammer sig lidt, og jeg 
ndr lige at give tegn til den 
pressefotograf. jeg har hyret i 
London: Knips! Han torstdr 
dbenbart min fingerbevce- 
gelse, for 16 sekunder efter er 
han i fuld gang med blitzen 
og David Crane som otter, Bil- 
leder skal tages at denne Ca- 
litornier, som imidlertid synes 
vant til den megen opmcerk- 
somhed: Han fortscetter upd- 
virket sin tale, mens b6de min 
og andre blades pressefotog- 
rafer skyder las. Det er tyde- 
ligt, han taler sig hjemme i 
projektarernes varme lysstrd- 
ler. end ikke stemmen lyder 
nervas. 

- Hej, er hans farste enlige ord, 
som straks overdaves at en 
klapsalve. Jo, han er hjemme 

- blandt utallige beundrere. - 
Hej, gentager han. og vel- 
kommen. Velkommen til lan- 
ceringen at "The LCP Re¬ 
search Project". - Jeg er her i 
dag tor at fortcelle jer om en 
revolutionerende opdagelse: 
Vi har hos Activision fundet 
sm6 mcend, der bor inde i 
folks computere. De kommer 
frem, n6r vi loader et gratisk 
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hus ind p6 skcermen. 

David Crane fortscetter med 
at fortcelle om det nye pro¬ 
gram og viser lidt efter lidt, 
hvad han kan med det. Han 
fortceller. du kan give din LCP 
sm6 gaver. og viser det p6 
skcermene. Han forcerer Ha¬ 
rold en plade. som Harold 
takker for ved at sarnie den 
op uden for deren. Han beder 
Harold spille den. Det gar Ha¬ 
rold, og danser endda til i takt 
med musikken. Pas p6. Tra¬ 
volta! 

Harold skriver brev 

- Nu vil vi bede ham skrive 
brev til os. Harold henter pa- 
pir, scetter sig ved skrivema- 
skinen og lader fingrene flyve 
over tasterne: "Jeg tror jeg 
kunne kcenke mig at holdt 
party for mine venner". skri¬ 


ver han. Senere sparger Da¬ 
vid Crane ham om flere an¬ 
dre ting, som Harold straks 
gar. Og nu sparger han s6 al- 
le os: Hvad skal vi bede ham 
om? Nogle gange gar han alt, 
hvad vi siger. hvis vi altsd er 
flinke. Er der nogen, der ved, 
hvad vi skal gperge ham om? 
Ved nabobordet griner en 
free-lance journalist lavmcelt 
til sin sidemand "Pirate some 
software”. - Lad os bede ham 
kncekke og kopiere software 
ulovligt! David Crane herer 
det ikke, men den ledladne 
free-lancer modtager et par 
blikke fra Activision-folk, der 
stdr tcet ved. Og hvem ved, 
LCP erne har da en computer 
i huset. s6 ... 

En dame foresldr en omgang 
poker, s6 David Crane scetter 
sig ned og begynder at spille 


poker med den lille fyr derop- 
pe p6 skcermen. Harold vin- 
der, men David afviser totalt, 
en LCP kan snyde. - Mange al 
dem er bare knaldgode til po¬ 
ker. Thats all. 

Herefter spiller Harold klaver, 
taler lidt i telefon (med 
hvem?!) og ser i det hele taget 
ud til at hygge sig gevaldigi. 
Folk nyder lanceringen, Da¬ 
vid Crane er i sit es, demon- 
strationen af spillets mulighe- 
der fortscetter. Der er flere 
spargsmdl fra pressen som be- 
redvilligt bliver besvaret. 


HerinterviewesDavid Crane 
(i midten). Til venstre ses Mo- 
gens Jensen tra Quicksort, og 
SOFT Specials Rasmus Kristi¬ 
ansen til hojre. 
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Hvad hedder de smd ly¬ 
re mon? 

- Hedder de alle sammen Ha¬ 
rold, sparger en skribent jeg 
kender fra det engelske md- 
nedsblad "Your Computer”. 
David Crane ser opgivende 
ud, vi andre trcekket lidt pd 
smilebdndet. - Nash, hvorfor 
skulle de dog det, lyder sva- 
ret. De er alle sammen sd for- 
skellige, kommer fra hver sin 
computer. Alle er individuel- 
le, sd hvorfor skulle de dog 
hedde det samme? Selv om vi 
til dags dato har kunnet rubri- 
cere dem i tolv hovedgrup- 
per, er ingen af dem helt ens. 
" Little Computer People" er 
sd forskellige som os andre. 
Som det sig har og bar ved sto¬ 
re begivenheder i London, er 
der nok at drikke og spise. He¬ 
re er allerede gdet godt til den 
i "Video Cafe's" eksklusive 
bar, og da David Crane tak- 
ker at, tager folk ved kniv og 
gaff el. 

Under spisningen ankommer 
en lidt forsinket Mogens Jen¬ 
sen direkte fra Copenhagen, 
Denmark. Mr. Jensen er ma¬ 
naging director hos Quicksoft. 
det store kabenhavnske 
software-firma, der er dansk 
distributor og officiel agent for 
Activision, og som sddan og- 
sd lorestdr den danske lance¬ 
ring af "The Little Computer 
People Research Project". For 
at kunne nd den sidste del af 
Activisions medie- 

begivenhed, har Mr. Jensen 
mdttet tage en helikopter fra 
Gatwick, men nu er han her 
altsd og bliver modtaget af Al¬ 
lison Hale, Activisions Export 
Marketing Manager i Europa. 
Det er ogsd Allison Hale, der 


arrangerer dagens mini¬ 
interview med David Crane 
personligt. Denne Mister Soft¬ 
ware himself, er normalt svcer 
at komme til. men udenland- 
ske blade har som regel be- 
dre chancer. Da SOFT-Special 
var taget til London for at 
dcekke Activisionbegivenhe- 
den, brugte David Crane lidt 
tid sammen med mig og Mo¬ 
gens Jensen fra Quicksoft. Vi 
talte med David Crane om 
programmet, som han kate- 
gorisk ncegtede at kalde et 
spil. 

- "The LCP Research Project" 
er en opdagelse. et udvik- 
lingsprogram, der lader os 
lcere noget om de smd men- 
nesker inden i computerne. 
Det er ikke noget spil. Folk tror, 
Activision har lavet et nyt spil, 
for det er vi nu engang sd 
kendte for. Men det her har 
laktisk ikke spor at gore med 
at spise prikker eller skyde no¬ 
get ned. Med "House on a 
Disk" kan du kommunikere 
med smd nye vcesener. Det 
gcelder om at lcere noget om 
dem selv og os. 

- Det er fantastisk. Det har ta¬ 
get os lang tid, men nu er det 
her. "The Little Computer Pe¬ 
ople Research Project, House 
om a Disk ". Det er helt utroligt, 
fantastisk. 

Efter 10-15 minutters samtale 
med David Crane vandrer vi 
ud, helt betaget. Da vi forla- 
der stedet, bemcerker vi de 
henved 450 plakater. der er 
blevet sat op over det hele. 
Over et billede af en lille 
sprite-agtig mand stdr der 
med store, rode bogstaver: 
There ARE people living in 
computers! □ 

Rasm us Kirkegdtrd Kristiansen 


























































































"Der er krig i AInka", lyder hvad er det sd egentlig. der hver kampdisciplin. I det en- ninger pd disse og hvor tcet 

foromtalen fra U S. Gold til et sker i dette supergame? delige spil. the tinal battle. ljenden er pd. ligesom du 

at deres seneste spil. Desert Dine opgave er at indtage og skal du nemlig kcempe mod med din kode-kncekker kan 

Fox. Dette spil har mange beskytte dine depoter med en hel hcer. og den er ikke atlytte Rommels radio (igen: 

Commodore 64 ejere set trem tanks, benzin og leverancer - helt nem. Sd istedet kan du autentisk tale, omend for lidt 

til, og nu er det her. Det er an- altsammen noget. nazi- inden tceppet for alvor gdr. al en god ting). Er det nok? Vi 

den verdenskrig og du er ”Lo- drengene er ude efter pd 0 ve pd trceningsskcerm. Her siger ja og kan godt lide sam- 

ne Wolf" fra Storbritannien, samme tid. Du er i kaplob kan vcelges mellem at kore menblandingen af hdndfast 

op imod Rommels Desert med tiden. og skal nd farst stcerkt igennem et toet belagt action og strategisk planlceg- 

Fox, en rigtig nazi-tysker. Spil- hen til hvert depot . Falder ba- minelelt (Hot 3D giafik). Skyde ning. Det er nyt, det er US 

let er fra Sydney Develop- re en enkelt base, hedder det fra din egen Sherman tank Gold Med Desert Fox har de 

ment i USA, og dette firma har Schluss - eller Game Over, mod et scet angribende tyske en vinder, ogsd selvom lyden 

tidligere lavet megasucceser som Desert Fox skriver det Tiger Tanks. Beskytte enforsy- ikke er helt i top. Talen kunne 

som f .eks. Zaxxon og Blue Og sd er der nix sejrssange og ningsconcoy ved at skyde der godt have vceret mere af, 

Max nul tegnefilm. Det er der til fjendtlige fly ned med ma- nu den er sd god, og mdske 

Det var derfor med store for- gengceld hvis du vinder: Ind- skinkanoner. Klare sig gen- kunne grafikken vcere be- 

ventninger vi loadede Desert tag samtlige baser/depoter, nem en fjendtlig skyttegrav dre. Men er du fan af det ori- 

Fox - et sagnomspundet spil og du vil here en sejrsmelodi eller at skyde Rommels Stuka- ginale Beach Head, vil Do¬ 
om orkenkriginordafnka Og efterfulgt af Rommel, der bombefly ned. Altsammen serf Fox fd dig hooked. 


det er bare lcekkert!! kommer korende i sin Tiger noget, der forekommer sam- Achtung! 

Desert Fox har en Beach Tank og basker energisk med menblandet i den rigtige or- 
Head-agtig stil med Here for- det hvide overgivelsesflag kenkrig. 

skellige kampscener. men Tale er der ogsd i Desert Fox, Og nu vi snakker orkenkng Grafik 10 

det er bedre. Bdde hvad an- endda lavet med autentisk Her kan du scette egne Spitfi- Lyd 9 

gdr grafik, lyd, tale ogvaria- accent hos Electronic Speech res ind mod Nazi'erne, hvor Tale 10 

tion/alsidighed. Desert Fox Systems i Californien. Og sd du kan vcelge angrebs- og Action 11 

sldr Beach Head med et par har Sydney, som et klart plus. rutetaktik. Du kan zoome ind Spcending 10 

kanonlobslcengder, men lavet ovelseskcerme ved pd depoteme. for at fd oplys- Pris/kvalitet 10 
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In front: Rick ShaM 
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Omdrejningerne stiger, som 
de siger derovre hos Firebird. 
Iscer efter at de har sendt Revs 
pd gaden. For det spil er bare 
for folk med benzin i blodet og 
nerver afstdl. 

Revs er bare et helt suvercent 
racer-simulations spil, der pd 
en ny og spcendende mdde, 
kcemper om retten til at vcere 
det bedste racerbilsspil i ver- 
den. 

I Revs fdr du ikke blot softwa- 
ren, men ogsd en "Drivers 
handbook", med samtlige 
tekniske og praktiske fiduser 
til dette spil. For at fd det reali- 
stiske islcet med pd banen, 
har de ved tilvirkningen af 
spillet her, haft David Hunt, 
tidligere formel 3 korer. som 
teknisk konsulent. Hvis en for¬ 
mel 3 korer ikke kan give de 
bedste og mest trolige oplys- 
ninger, hvem kan sd? "Driv¬ 
ers handbook" starter med en 
introduktion af dit benzinslu- 
gende, gummifrcesende. 
ceterlugtende fartuhyre. En 
Ralt RT3 Toyota med Nova- 
motor. Det er en enkeltscedet 
(altsd ikke en man tager pd 
skovtur med svigermor i) ra- 
cerbil. Du bliver tee vet gen- 
nem banen af en 2 liters nor¬ 
mal racermaskine (d.v.s. in¬ 
gen turbo), der kan preestere 
op til 160 smd pruhester. Sd er 
der en kort beskrivelse af hvil- 
ke deek du skal bruge hvor- 
ndr, for at fd det bedste vej- 
greb. Og endelig en forkla- 
ring pd hvorfor der pd bilen er 
"Front Wing", og "Rear 
Wing''. Det er vigtigt at scette 
sig ind i aerodynamikken. 


ndr du skal til at kore. Du skal 
nemlig selv vinkle vingeme, 
der har til opgave at holde dit 
hvinende uhyre til jorden. Sd 
er der en detaljeret instruktion 
i. hvordan du fdr de bedste 
styremuligheder, ndr du skal 
pd banen, og der er mange. 
Du har mulighed for at kore 
bdde med tasterne. eller joy¬ 
stick. Disse muligheder kan 
kombineres yderligere. Hvis 
du f .eks. onsker dit rat skal re- 
agere pd det mindste vink. el¬ 
ler om du skal have hjeelp, sd 
bilen selvretter sig opo.s.v. En 
sjov detalje jeg aldrig har set 
for, er at ndr du holder pd ba¬ 
nen. Du er parat til start, men 
du skal starte bilen for du kan 
kore (T). Du kan hore starteren 
summe, og kort efter starter 
maskinen. Tilbage til hdnd- 
bogen, hvor der er en long in¬ 
struktion i at kore bilen. Hvor¬ 
dan, hvorfor, hvorledes, og 
masser af tips til en fremtidig 
superkorer. 

Du har nu valgt hvilken bane 
du vil kore pd, enten "Silver- 
stone" eller "Brand Hatch", 
hvor jeg af to onder vil vcelge 
"Silverstone". der md siges at 
vcere den "nemmeste". Ja, 
nemmeste i gdseojne. for det 
tager lang tids treening. at 
kunne tage svingene. Iscer i 
den hastighed, som der stdr 
beskrevet. Det hele selvfolge- 
lig samtidig med at alle de 
andre korere selvfolgelig ge- 
nerer dig mest muligt. 

Du kan naturligvis treene lige 
sd meget du lyster, for du ka- 
ster dig ud i et af de store ra¬ 
ces. Men lad os antage at du 


har treenet nok, og geme vil. 
kore lidt. Du vcelger sd "Sil¬ 
verstone" banen. og hvor 
mange "laps" du vil kore. Du 
er nu placeret midt i det hele, 
og et flot billede brager ud i 
ansigtet pd dig. 

Du sidder i din bil. og har 
oversigt over instrumenterne, 
og banen. Du drejer noglen 
(T) og starteren summer et 
ojeblik ... 

Wruuummmm! Din 160hestes 
stcerke motor broler sine kreef- 
ter ud i hovedet pd manden 
bag dig. Din hojre hdnd lceg- 
ger sig om gearstangen, og 
du vrider den om i forste 
(Q/Joystick). Ndr du er oppe 
omkring de 5000 omdrejnin- 
ger, giver du den en "pind" 
til. Omgivelseme brager forbi 
dine ojne. der er feestnet pd 
banen. Et skilt angiver at du 
snart skal dreje. Du gdr helt ud 
i siden, venter til du er godt in- 
de i kurven, og drejer sd me¬ 
get du kan. Dcekkene hviner. 
du retter op, og der er ikke 
lcengere nogen i bakspejlet. 
Vel ude af svinget. giver du 
mere gas - motoren hviner, 
og du er et med din bil. Op i 3. 
gear - du ncermer dig svim- 
lende hastigheder, endnu et 
sving, ned i 2. gear og endnu 
engang gik det, men hvad 
nu? Et lille ojebliks uopmeerk- 
somhed, bringer din bil ud i 
en ukontrollabel situation. Du 
bliver smidt ud af banen, og 
du drejer febrilsk pd rattet for 
at undgd den visse dod. Kort 
efter vdgner du - din bil blev 
heldigvis fanget i hegnet, og 


du md starte forfra. 
Nogenlunde sddan kunne 
det gd i dit forste race. Din tek- 
nik kunne mdske godt blive 
lidt bedre. sd du lamler efter 
"Special Revs racing pro¬ 
gramme", et specialtillceg 
med alle de tekniske fiduser 
du kunne onske dig. Hvordan 
du gdr ind i et sving, hvor 
mange omdrejninger du skal 
kore med i de forskellige ge¬ 
ar, o.s.v. En virkelig god 
hjeelp til dig, og din karrriere, 
som racerkorer. Der medfol- 
ger ogsd en fuldstcendig over¬ 
sigt over begge baner, samt 
en forklaring om hvad de for¬ 
skellige sving hedder. Et helt 
igennem dygtigt forarbejde 
er lagt for dagen i Revs fra Fi¬ 
rebird Software. Men oven i 
alt dette materiale, (ja det er 
helt overvceldende). har du 
muligheden for at vcere med 
i konkurrencen om at vinde 
en tur til "Monaco Grand 
Prix". samt 150 pund du kan 
bruge mens du er der. Revs er 
absolut et suvercent program, 
der vil kunne bringe sovnlose 
ncetter, (lyder det ikke godt?) 
for hele familien. Spillet er 
propfyldt med sjove detaljer, 
der gor det veerd at spille. Ndr 
du forst er kommet i gang, 
kan du ncesten ikke holde op 
igen. Bare det, at ndr der er 
bakker pd banen, kan du ik¬ 
ke se hvad der kommer for- 
an, er en suvercen detalje. 
Det giver spillet et ekstra pift til 
sandfeerdigheden. Jo! Revs, 
er du bestemt godt tjent med, 
og sd er der jo altid chancen 
for at komme med til Monaco 
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NU WOBLER DET VIST! 



Kender du det. ndr du har lo- 
adet et spil ind, startet det. spil- 
let lidt pd det. og sd tcenker: 
Det her kan umuligt vcere rig- 
tigt - der md vcere sket en tejl 
under loadningen. 

Du resetter maskinen. og 
prover lykken en gang til. og 
hvad sker der? Akkurat det 
samme sindsyge spil som for. 
Man begynder at tale sig en 
smule "snydt", og ens ncese 
er nu sd lang, at man skal helt 
ind pd Rddhuspladsen for at 
vende. Akkurat sddan folte 
jeg mig, da jeg testede Willi¬ 
am Wobler tra Wizard Com¬ 
puter Games - et nystartet soft- 
warefirma med supergeniet 
Tony Crowther (manden bag 
Suicide Express. Gryphon. Lo¬ 
comotive etc), som hovedfor- 
cen og programmoren i fir- 
maet. William Wobler er en 
af de forste i serien fra det nye 
firma, og man fristes til at tro at 
Tony Crowther har lcest for 
mange borneboger. eller og- 
sd er det endnu et helhjertet 
forsog pd at tjene penge. 

William Wobler er ikke kun et 
spil. for du kan nemlig delta- 
ge i en kcempe konkurrence 
om 1000 engelske pund. Det 
gcelder her om at lose gdden 
i dette Arcade Adventure spil 
pd den kortest mulige tid. Ndr 
du har gjort det, kan du save 
dine resultater pd en medfol- 
gende diskette. 1 grunden en 
ganske god ide, men de- 
svcerre kan kun englcendere 
deltage (igen en ncese). 

Du starter som William pd jor- 


dens overflade, for derefter at 
bevcege dig ned i jordens 
dyb. Du er en kedelig halv- 
sovning grafikdrage, i 3 dele. 
Med 3 dele mener jeg, at ndr 
du dor, bliver du splittet ad i 3 
dele. Du hopper ned i jorden 
gennem et krater, og lander 
pd 1. sal i det underjordiske. 
Hopper du ikke frivilligt, kom- 
mer mutter, med curlere i hd- 
ret efter dig. Med sig har hun 
en fortidskolle. og makker du 
ikke ret, fortidsdunker hun dit 
hoved langt ned i maven. Det 
for du af, og spillet starter forfra 
igen. og du har nemlig kun et 
liv. Mdske det eneste virklig- 
hedsncere i dette spil, og det 
er sd malplaceret som noget 
kan vcere William Wobler er 
nemlig sd svcert. at et liv 
overhovedet ikke er nok. Ned 
pd 1. sal kan du gd en vej, og 
det er til hojre. Sd vi gdr til hoj- 
re, og nu starter det mcerkeli- 
ge . 9 ud af 10 gange svcever 
en Nilfisk-lignende grafisk ge- 
nsplejsningsfejl rundt. og den 
er umulig at forcere. Sd tcen¬ 
ker du: Det er da ligegyldigt. 
jeg springer bare videre ned i 
dybet. ned pd nceste etage. 
Dernede kan du bdde gd til 
hojre og venstre. Hvis du gdr til 
hojre, vil du finde et skilt der 
peger lcengere ind i hulen. 
Her finder du skiltet "Save ga¬ 
me", dette virker selvfolgelig 
kun hvis du har et diskdrev. 
og har indsat den medfolgen- 
de diskette. Nok om at gd til 
hojre, sd vi gdr til venstre i ste- 
det. Her kommer flyvende fro- 
ldr, og bugtende ustegte dl 


som du skal undgd, og det er 
meget nemt. Ndr du har gdet 
i et par minutter og undgdet 
tonsvis al disse. kommer du til 
en dor. Denne dor kan du ik¬ 
ke fd op uanset hvordan du 
bcerer dig ad. Sd gdr vi tilba- 
ge igen. og hvad sd? Det var 
hvad der kunne ske de 9 ud 
af 10 gange du starter spillet 
Den tiende gang er der ingen 
Nillisk stovsuger, og du kan 
hoppe lige over pd den an- 
den side. Du tcenker: Fedt 
mand! Spillet virker alligevel. 
Det var nok bare mig der var 
dum. Men ak! Du bliver klo- 
gere. Du fortscetter ligeud, og 
foran dig er en hvid Had ting. 
Den samler du op. Videre vi¬ 
dere - nu er der ved at ske no¬ 
get . Pludselig ser du en nogle 
hcenge oppe under loftet i hu¬ 
len . Du hopper og springer for 
at fd fat i den, men det lykkes 
ikke. Hmmm! Nd - det kan 
vcere at jeg skal have fat i no¬ 
get mere, for jeg kan tage 
noglen. 

Vups! Foran dig er endnu en 
ting. Pining! Den nupper jeg, 
og sd tilbage til noglen. End¬ 
nu en gang mislykkes det. 
Sikke noget moj - tcenker du. 
Det kan simpelt hen ikke pas¬ 
se, at spillet ikke kan spilles. 
Det betyder ikke noget at gra- 
fikken er ddrlig, og at man er 
ved at blive sindsyg i knop- 
pen over den klagende mu- 
sik. En musik der dbenbart 
kun er pd fd bytes, men som 
skal gentages 1000 gange. 
Du giver ikke sd let op - det 
md kunne lade sig gore. Pd 


den igen - du forcerer de slat- 
ne slanger og flyvende froer 
endnu en gang, i hdbet om at 
de to ting du har samlet er nok 
til at fd noglen til doren. Men 
ogsd denne gang fdr du en Pi- 
nocchio gonzo (lang ncese, 
red.). Du er da bare helt til 
grin. Det er ubestrideligt det 
mest dndssvage program, jeg 
i mine livs skabte dage, har 
smidt mine ojne pd. Men hvis 
du alligevel har smidt dine 
penge ud pd William Wob¬ 
ler, skal du ikke give helt op. 
For det kan rent faktisk bruges 
til noget. For det forste kan du 
underholde alle dine venner, 
i umddelig lang tid. Dels ved 
at de halvdelen af tiden lig- 
ger og vrider sig af grin over 
hvor ddrligt det er. Dels den 
tid det tager, til det gdr op for 
dem, at det er helt umuligt at 
spille. For det andet kan du. 
hvis du har en yndlingsmelo- 
di, lcegge fra 1 til 3 melodier 
ind pd bdndet. - Fed ide til 
Walk-man'en. Sd er der jo og¬ 
sd en diskette med, hvis du 
skulle std og mangle en sd¬ 
dan . Husk lige at den skal for- 
matteres for brug. Hvis du sta- 
dig skulle have trang til at se 
William Wobler. i ojnene md 
du hellere bede gangvagter- 
ne om at give dig din 
spcendetroje pd igen, inden 
det gdr helt gait. 
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JOYSTICK TELEKINESE PILOT I SNEGLEFART 



I The Covenant, der er et sd- 
kaldt arcade-adventure, har 
du til opgave at samle rester- 
ne at en tor lcengst heden- 
gangen kultur. Du tlyver rundt 
i en lille kugle under jorden 
(??!!) i nogle huler, i alt 256 
hvis man skal stole pd omsla- 
get. 1 disse huler er der 64 for- 
skellige dyr, og det er menin- 
gen, at du skal samle disse, 
og bringe dem op til overtla¬ 
den . Ndr dette er gjort, er pla- 
neten blevet genbetolket, og 
du har, som den sidste overle- 
vende, gjort din pligt. 
Naturligvis er der sd forskel- 
lige torhindringer undervejs. 
Kuglen, du tlyver rundt i, er 
styret at "telekinese", der er 
en psykisk kratt. Du kan bru- 
ge den til at bevcege et lege- 
me uden at have tysisk kon- 
takt med det, I praksis toregdr 
det dog ved hjcelp at et joy¬ 
stick, Apropos sty ring: Kuglen 
ncermest svcever rundt pd 
skcermen i langsomme, bla¬ 
de baner. der godt kan vcere 
lidt (meget) irriterende, tordi 
det gar det svcerere at tange 
dyrene. 


Ndr du kommer ind i hulen. er 
der et eller Here dyr, og et an- 
det sted noget bedavelses- 
middel. Du skal sd samle det¬ 
te bedavende middel op, 
hoppe ud at din kugle, for 
derefter at atfyre et skud mod 
dyret med din kanon. Dyret 
dar ikke, men lammes kun i 
nogle sekunder, Du skal sd 
skynde dig at hoppe ind i 
kuglen igen. og hurtigt flyve 
hen over dyret og samle det 
op. Der er i spillet inkluderet 
en statusskaerm. Tryk pd en 
tast, spillet stopper, og du fdr 
informationer om, hvor man¬ 
ge dyr. du har tanget, din sco¬ 
ring, spilletiden og hvor me¬ 
get energi du har tilbage. 
Spillet har kun 4-larve grafik. 
og kombinationeeme er lidet 
ophidsende. Lyden er ikke en 
udprceget vinder, men heller 
ikke sd ddrlig, at spillets ka- 
rakter trykkes helt i bund.D 
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Har du pravet "Time Pilot" pd 
Bakken eller Tivoli? Hvis du 
syntes at det bare var alleti- 
ders spil, sd er Space Pilot II 
ettertalgeren. Ettertalger kal- 
der jeg det kun tordi det kom 
etter "Time-Pilot"" ikke tordi 
det med vcerdighed kan kal- 
des ettertalger eller atlaser. 
Ndr spillet er loadet ind. kom¬ 
mer der en oversigts-skcerm 
der torklarer dig om de for- 
skellige tunktioner og kombi- 
nationer, og det er ikke man¬ 
ge Bl.a kan du trykke F-5. 
der bevirker at en sdkaldt 
"Info-screen"" dukker trem. 
Denne informationsskcerm 
fortceller dig hvordan din joy¬ 
stick virker, hvis du skulle vae- 
re i den situation at du ikke 
kunne huske det. Du starter 
spillet med F-7. og etter at ha¬ 
ve valgt antal spillere. tdr du 
meldingen "Stage 1". Den 
besked har du i ca. 2 minutter 
(bdndversion). ja hurtigt gdr 
det i hverttiltcelde ikke... Og 
sd gdr det las, troede du. Spil¬ 
let er desvcerre sd langsomt, 
at du bliver i tvivl om der er 
noget gait med din computer, 
eller den virkelig skal std sd- 
dan og hakke i det. Det kun¬ 
ne da ogsd gd, hvis det ikke li- 
ge var for den detalje, at scet- 
ter du auto-tire pd dit joystick, 
fdr du AUTOMATISK highsco- 


re!! Inspirationen til gratikken, 
md bestemt stamme fra en 
celdgammel rumtilm, for ma¬ 
ge tilamate... 

Handlingen i Space Pilot II 

toregdr ude i rummet, hvor 
det gcelder om at skyde pd 
en stadig stram at rumskibe. 
Ndr tiden er labet ud (angivet 
i hajre hjarne med en rad 
streg), kommer du videre til 
nceste "stage". Her bliver det 
tydeligt demonstreret. at du 
bliver kastet rundt i tiden, 
trem? eller tilbage? Frem toner 
igen - Gar dig klar til "Stage 
2", og sddan fortscetter det. 
Du kan opbygge en kraftig 
selvtillid, hvis du har mindre- 
vcerdskomplekser over ddrli- 
ge highscores i andre spil. 
Pointene tceller nemlig ufatte- 
ligt hurtigt. og det er nok det 
eneste hurtige i dette spil. Jeg 
md med sorg melde, at du 
nok vil blive frygteligt skuffet, 
hvis du brcender lommepen- 
gene at pd dette spil. 

Enten kom det 2 dr lor sent, el¬ 
ler ogsd er det specielt kon- 
strueret til meget langsomme 
mennesker. 
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VI mangier COMMODORE 64 
programmer 

Har du lavet nogle gode 
programmer, og kunne du 
tCBnke dig at tjene nogle hur- 
tlge kroner? S6 send dem 
straks ind til SOFT SPECIAL. 
Vi kan tilbyde skattefrie ho¬ 
nor arer, helt op til 1000 kro¬ 
ner. 

Send dit superprogram til: 
SOFT SPECIAL 
St. Kongensgade 72 
1264 Kebenhavn K. 



FUGLEANGREB 
UNDER JORDEN 


■ Firebird - softwarefirmaet 
vores sosterblad "Alt om Da¬ 
ta" omtaler i nr. 1 186, har net- 
op udgivet deres nyeste spil i 
Arcade Adventure serien. 
Underwurlde hedder spillet. 
og er tor nyligt blevet omlor- 
met til 64'eren fra den vel- 
kendte Spectrumversion. 

Det er jo efterhdnden pd mo¬ 
de at skulle overgd hinanden 
i sjove og spcendende spil. 
Men naturligvis bliver spillene 
da ogsd stadig flottere og me¬ 
re prangende. 

Firebird formdr imidlertid at 
producere en stabil kvalitet, 
for en lille men beskeden slat 
penge. Ndr du har proppet 
(indlcest red.) programmet i 
computeren. og det hele bare 
korer som smurt i controller- 
fedt, dukker et skcermbilelde 
op, hvor du kan vcelge 3 
funktioner. Vi vcelger den sid- 
ste, der scetter eventyret i 
gang. Vi bliver kastet ind i en 
slags stue. Der er nogle mob- 
ler rundt omkring, som du skal 
hoppe over for at komme vi- 
dere. Her begynder dine 
trcengsler, for du bliver i hele 
spillet chikaneret af 4 slatne 
fugle, der i ovrigt ligner noget, 
katten har slcebt ind. Disse 
fugle (ja, kald dem hvad du 


vil). er noget at det mest emsi- 
ge, jeg i mit liv har vceret ude 
for. Et kvalificeret gcet gdr ud 
pd, at programmoren har 
vceret oppe at skcendes med 
sin kone, da han lavede spil¬ 
let, for de kan virkelig gore li- 
vet surf for enhver Arcade Ad¬ 
venture entusiast. Du starter et 
sted, hvor grafikken lcegger 
op til noget godt, og du hop¬ 
per over det forste mobel. Ud i 
det helt store vilde. men sd 
kommer disse forp. fugle 
og basker til dig. Du ryger helt 
tilbage, hvor du kom fra. Ikke 
nok med det. men de bliver 
ved og ved. Hver gang en af 
disse "syge" fugle rarer ved 
dig, tilter du rundt. sd man 
kunne bruge dig som ventila¬ 
tor til en filmoptagelse Det 
bliver du meget hurtigt trcet 
af, medmindre ererufatteligt 
tdlmodig. Disse emsige grim- 
me fugle er et klart minus ved 
spillet, men uden dem var der 
ikke meget action. Ndr du i 10 
min. har kcempet med at 
komme fri af fuglene. kan du 
gd videre. 

Der er over 20 forskellige le¬ 
vels, og du befinder dig pd le¬ 
vel 16, ndr du starter. Hvis du 
fortscetter, hvor fuglene ende- 
lig slipper dig et kort ojeblik. 


kan du ramie ned i drypstens- 
huleme Nede i huleme er der 
ikke noget scerligt spcenden¬ 
de. det er pd vejen ned, det 
sjove sker. Der stdr skattekister 
overalt, lige til at snuppe. hvis 
du altsd er hurtig nok til at 
springe over og fd fat i dem 
Hvis du ikke er det, vil du snart 
efter lande pd bunden af 
drypstenshulen. Nu tror du li¬ 
ge, at du er sluppet af med 
fuglene. men "you must wait 
and see''. Der gdr nemlig ikke 
lang tid. sd er de der igen. Li¬ 
ge sd irriterende som for. Din 
eneste mulighed for at kom¬ 
me ud af drypstenshulen er at 
hoppe op pd et af kraterne. 
og tage den forste boble mod 
"0sterport". nd ikke. Sd tag 
den forste mod toppen. Mee- 
en det skal fuglene nok sorge 
for, du ikke kan. Sd kan du 
igen bruge tid pd at slippe 
vcek fra dem. Endnu en 
ulempe ved Underwurlde er, 
at stdr du lige. hvor billedet 
scroller mellem to afdelinger. 
og fuglene angriber. vil bille¬ 
det hoppe frem og tilbage. 
Det er en uheldig detalje. Sd 
hvis du ikke er sd nem at for- 
virre, og du ikke har noget 
imod emsige fugle, sd kan du 
roligt kobe Underwurlde der 


i grunden er et sjovt spil.D 
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FLUGT I /EGYPTEN BANG PA MOTORVEJEN 


■ Imhotep hedder det nyeste slog det hen i starten. men da 
spll fra Ultimate. Du bliver reserverne var ved at slippe 
bragt til det gamle jEgypten, op, blev der panik. Han mbt- 
til et brhundrede helt tilbage te gore noget. Sd gik han til 
til dengang din far var ung. dig, den store Imhotep, men 
Her skal du kcempe mod en ikke engang din visdom kun- 
hcerskare af flyvende cegyp- ne hjcelpe ham. Du ved dog, 
tere. De har fundet en fugl hvad der skal gores, og du 
frem, startet den op, og mstet drager straks ud pd din missi- 
til krig (ups! endnu et stjerne- on. for at finde de vise boger 
krigsprojekt?) Du flyver selv om Nilens hemmeligheder. 
rundt pd en sbdan fugl, og Et ganske morsomt spil. ikke 
hvor den kom fra. vides ikke, noget man sidder og klapper 

Her oppe fra luften skal du i sine smd hcender af glcede 
skyde disse gamle cegyptere over, men alligevel et ganske 
ned, ogseatsamledignogle godt spil. i den billige ende. 
point. Grafikken er lidt grov i kanter- 

Ligesom du tror, du har klaret ne, men til at holde ud at se 

dem alle, kommer der nogle pd. Ellers tror jeg ikke. der er 
Here, Undervejsidinflyvning. noget at udscette pd spillet. 
passerer du flotte pyramider, som sddan. 

palmer, cegyptere (pd jor- Foruden det spil. dukober. fdr 
den), og en masse andre du ogsd et rensebdnd til din 
sjove ting. Det er dog kun et af bdndoptager. Sd hvis du mod 
mange levels i dette spil. Idet for ventning ikke kan se no- 
Imhotep starter op, kan du gen anden grund til at kobe 
vcelge det level, du vil starte i Imhotep , sd er der en her. 

En lcekker detalje. der aldrig 
fdr spillet til at vcere kedeligt. 

( Duhar51ivatlegemedihvert 
| spil, og det er helt klart pb- 
~ krcEvet, for du er et nemt byt- 
\ te der pd ryggen af din ' 'bir¬ 
die ''. Din mission grundet i en 
\ lang historie, sd jeg vil kort 
> give dig essensen af den. Der 
var en gang en Farao, der 
I hed Zoser. Han var en meget 
dygtig mand, og alle havde 
tiltro til hans mdde at styre lan- 
det pd. Det gik ogsd ganske Lyd 


godt i ni dr. men det tiende dr Grafik 8 

gik det gait. Nilen gik ikke Spcending 
over sine bredder, og hele ho- Action 

stenblevodelagt./Egypteme Pris/kvalitet 8 


■ Highway Encounter fra begrcensning indbygget i 
Vortex Software giver dig 30 spillet. En anden begrcens- 
skcerme. Eller 1st or. Eller sagt ning er skydningen. Laser - 
bedre: 30 skcermbilleder ud- trons skal lades op, og er du 
gor en lang vej. en forladt mo- ikke forsigtig, kan du finde dig 
torvej i fremtidsland selv i en situation. hvor aliens 

Med en lasertron skal du krydser ind og omringer dig, 
krydse op og ned ad vejen. samtidig med at din lasertron 
alt imens en roekke angriben- lader op. Hvor sorgeligt! 
de aliens fra det ydre mm. Highway Encounter er til bd- 
skal zappes i smdstykker. de Spectrum og Amstrad en 
Splat pd motorvejen. Lyder af de virkeligt gode titler pd 
Highway Encounter som et markedet. Grafikken er lcek- 
fedt spil? Deter det. Ogsd selv ker og yderst detaljeret. Ly- 
om du mdske har hort den den er rimelig. Og hver zone 
der med at skyde aliens i er lige en tand svcerere end 
smadder et par gange for. den foregdende. Det er nemt 
Trods den mdske lidt uorigi- at komme i gang med, men 
nale baggrundshistorie har svcertatoverstd.Etanbefalel- 
forfatteren Costa Panyi for sesvcerdigt spil. der helt klart 
Vortex formdet at skabe et in- bar hore hjemme i enhver 
teressant spil. Costa er ogsd spilsamling. Creme de la cre- 
manden bag Android One me. som de sigeri Sverige.□ 
og Android Two. men han 
betragter selv Highway En¬ 
counter som mestervcerket. 

Det gor vi andre ogsd. for i 
Highway Encounter benyttes 
en grafik ikke ulig den Ultima¬ 
te har smidt i f.eks. Alien 8 og 
Knight Lore. Tilmed er der en 
aktiv kampduel pd liv og 
dod. med hurtige aliens i lcek¬ 
ker. stcerk grafik. Der er tempo 
i Highway Encounter, noget 
mange Knight Lore og Alien 8 
fans mdske kan have savnet 
en del. 

Ud over at skyde igennem 30 
motorvejs-zoner. skal du 


skubbe dine ekstra liv (Vor- Grafik 11 

trons) med dig. Disse skal ogsd Lyd 8 

benyttes mod de fjendtlige Action: 10 

vcesener. og det hele skal gd Spcending: 10 

tjept: Der er nemlig en tids- Pris/kvalitet 11 
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zzzsqidr raz raz ssssssss "AN 
two zero nine approaching 
Kennedy airport, request cle¬ 
arance for landing!!" AN two 
zero nine climb to 1000 feet, 
you are cleared for landing. 
Weather is fine - outside is mi¬ 
nus sixtytwo degree celcius. 
You will reach destination wi¬ 
thin 00.05 minutes, roger"" 
schratch ouiiiii. ksss phisttt. 

Nogenlunde sddan kunne en 
samtale finde sted i MicroPro- 
se's Kennedy approach nej 

ikke et flysimulator program, 
denne gang er du "in char¬ 
ge". Det vil sige at du er fedt 
plantet i en lcederstol pd top- 
pen af lagkagen. Du befinder 
dig i et kontroltdm. med et su- 
vercent overblik over utallige 
fly, der kan finde pd alle mu- 
lige og umulige ting, inden du 
fdr givet dem alle tilladelse til 
at lande. Bl.a. kan dine fly 
pludselig lobe tor for benzin, 
men du bliver naturligvis 
varslet i god tid. Grafikken er 
virkelig lcekker, men det er li- 
ge for du taber bdde ncsse og 
mund, ndr du horer hvordan 
MicroProse har formdet at tryl- 
le med lyden. Et minus ved 
dette spil er at bdndversionen 
skal loades ind, for du tager 
din middagslur, skifter lille- 
bror, eller skal spise en meget 
stor middag. Ndr du har loa- 
det side 1 ind, kan du indtaste 
dit valg, plug din joystick i port 
2, og vrid den rundt som du 
nu lyster. Hvis du er heldig. sd 
findes de lufthavne du har 
valgt at beskceftige dig med. 


forst pd side 2. Men eruheldet husk nu at bruge den rigtige 
med dig, sd giv lillebror tor- Code Access. Hvis du bruger 
mcelk og stov ham af, sd skul- den forkerte gdr der "kage" i 
le vi vcere klar til at spille. Du din computer, og du kan loa- 
indtaster din (CACN- Compu- de det hele ind 'en gang til. Vi 
ter Access Code Number), gdr ud fra at det gdr godt alt 
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sammen, og sd er vi klar. I 
toppen af skcermbilledet har 
du din "message screen" der 
fortcBller dig hvordan, hvor- 
for, hvad, hvorndr o.s.v. For- 
uden den, har du en lidt rodet 
oversigt over hvilke fly der er i 
luften. Hvis der er mulighed 
for at 2 af flyene "Chrasher", 
vil du straks blive gjort op- 
mcerksom pd dette ved at fly- 
enes ID-nr. blinker. Du styrer 
flyene ved hjcelp af en kcem- 
pe cursor. Bevceg cursoren 
hen over et af flyene der er pd 
vej hen over skcermen, og 
tryk fire for at manovrere. Det 
vil du pd ganske kort tid kun¬ 
ne lcere. Ndr du har givet dit 
fly en instruktion, folges den 
op af en rigtig svarmelding fra 
dit fly. Nu er du i gang, til stot- 
te for, og lobende under spillet 
har du en udforlig, men ufat- 
teligt rodet beskrivelse af alle 
funktioner. 

Kennedy Approach udmcer- 
ker sig forst og fremmest ved 
den meget fine tale, der er i 
spillet. Du kan hore hvert et 
ord klart og tydeligt. Blot skal 
du vide, at hvis du er action- 
fanatiker, kan dette spil nok 
ikke holde din interesse fan- 
get i scerlig lang tid. Ellers et 
fornuftigt kob, idet et spil af 
denne type sjceldent ses. 
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I vort sasterblad "Computer" 
nr. 1 blev Brian Jacks Super- 
star Challenge testet i sin 
Commodore udgave. En 
ubehagelig atlcere, selv tor 
det ellers gravede testhold. 
Overskritt: 'Slatten 10-kamp". 
Citat: "Superstar Challenge er 
vel nok uden sidestykke det 
ddrligste sportspil til C64". Og 
gennemsnitskarakter? 6! 

Nu har producenten vovet 
endnu et oje og lanceret 
Amstrad-versionen at det ta- 
mose sportspil. Med endnu 
mindre held! 

Gratikken har ndet elendig- 
hedens lavmdl. Lyden er nce- 
sten vcek. Og for at scette prik- 
ken over i'et, har Martech 
gjort betjeningen endnu mere 
vanskelig. 

Brian Jacks Superstar Chal¬ 
lenge skal undgds. Paknin- 
gen er lcekker, men teksten 
bagpd tremkalder kun et bil- 
ligt grin: "One ot the most ex¬ 
citing, addictive and chal¬ 
lenging games!" Ikke tor os, i 
hvert laid. . . 

Vil du lorsoge med bomovel- 
ser, armbojninger og slige 
ting, er du velkommen til at 
kobe Brian Jacks Superstar 
Challenge. 

Men som med Commodore- 
versionen md vi gentage: Vi 
gider i hvert tald ikke.D 



■ Du befinder dig i Skotland 
omkring dr 100. De romerske 
legioncerer trcenger op gen- 
nem Brittanien og sldr alle tor- 
sog pd modstand tilbage. Til 
sidst stdr de ved den skotske 
grcense, og her bliver de 
holdt tilbage at en hcer ledet 
at en stcerk nordisk krigsher- 
re. Begge hcere kcemper ind- 
cedt mod hinanden. Da det 
viser sig, at de er lige stcerke. 
drager de deres respektive 
guder med ind i opgoret 
For at krigen ikke skal tore til 
jordens undergang, beslutter 
gudeme at stille de to hcere 
pd en opgave. De skal ud- 
vcelge deres bedste mand, 
der sd vil blive transporteret 
gennem tid og rum til en an- 
den verden. Den, der forst 
vender tilbage til den virkeli- 
ge verden, vil blive erklceret 
som sejrherre. Romeme vcel- 
ger deres overste centurion 
og skotteme deres krigsherre. 
Din opgave, som krigsherren, 
er nu at finde tilbage til den 
virkelige verden. 

Warlord tra Interceptor er de¬ 
res 5. adventurespil til Am- 
strad. Lavet at de samme per- 
soner med de samme udvi- 
klingsprogrammer. Gratik- 


Gratik 

Lyd 

Action 
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ken og sprogtortolkeren er 
konstrueret pd nojagtig sam¬ 
me mdde som tidligere. Det 
eneste, der er cendret, er altsd 
selve handlingen. Den md til 
gengceld siges at vcere origi¬ 
nal denne gang. 

De enkelte illustrationer er 
som sagt udfort pd samme 
mdde som tidligere, men der- 
med ikke sagt, at de er at 
samme kvalitet. Interceptor 
har altid fdet gode karakterer 
for deres grafik, og denne 
gang har den kcere Terry 
Greer gjort sig ekstra umage. 
Billedeme er uhyre flotte med 
en superudnyttelse at Am- 
strads 4-tarve mode. Smukt 
arbejde! 

Den eneste anke ved dette 
adventure er taktisk sprogtor¬ 
tolkeren. Den er temmelig 
ddrlig og forstdr tit ikke selv 
de mest oplagte ordrer, som 
t.eks PUT. Mit forslag til Inter¬ 
ceptor: Bmg noget tid pd at 
udvikle en ny sprogtortolker, 
tor I gdr igang med nceste 


adventure. 

Grafik: 11 
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Historie: 10 

Fcengslende: 9 
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Selv om der er 5 
dage endnu til 
juleaften, luk- 
ker SOFT Speci¬ 
al allerede nu 
op for godte- 
posen. Vi dbner 
julegaveballet 
med den kom- 
plette losning til 
Spiderman. 
Supereventyret 
fra Adventure 
International. 


■ Har du en Commodore 64. 
C16. PLUS4, Spectrum. BBC el- 
ler Electron samt eventyret 
Spiderman fra Adventure In¬ 
ternational? Sd hceng pd de 
nceste par sider. hvor alle ed- 
derkoppens genvordigheder 
vil blive afsloret. Er du usikker? 
Sd lad SOFT Special fore dig 
sikkert i havn Losningen til 
Spiderman -' 'From all os us - 
to all of you". 

S6 gdr 
det los 

Du er Spiderman. med licens 
til at kravle pd vcegge. Du stdr 
i en hoj oplyst gang, hvor der 
til hojre for dig. er et mm med 
en vugge. og noget sand. 
SAND! mumler du hojlydt - dit 
hjerte begynder at banke 


hurtigere, og du mcerker 
svedperlerne pible frem pd 
din pande! Det er din cerke- 
fjende. "Sandmann ". Sporgs- 
mdlene svirrer mndt i hovedet 
pd dig - hvad mon han gem- 
mer i vuggen. og hvordan 
undgdr du at vcekke hans 
dodelige opmcerksomhed? 
Pludselig. mens dit blik glider 
nervost hen over loftet. gdr det 
op for dig - LOFTET! Med ior- 
sigtige tag kravler du op pd 
loftet, "climb roof". Et skridt 
vest, og ha - du har snydt 
"Sandman"! Mens du hcen- 
ger over hovedet pd din fjen- 
de, undersoger du febrilsk 
vuggen. "exam crypt". Du 
finder hurtigt en formular som 
du tager til dig. Effektiv som 
du er. checker du lige vug¬ 
gen efter en gang til, og nu 


finder du en "gem". Det kan 
betale sig at vcere grundig. 
Roligt kravler du ud af turn- 
met og ned pd gulvet. Pyh! 

Modet med 
Madam Web 

Med sikre skridt gdr du nu 
nord langs gangen, indtil du 
stdr ansigt til ansigt med den 
kcere "Madame Web". Hun 
sidder og venter pd, at du 
kommer med alle ''gems" du 
finder, og lcegger dem for 
hendes fodder. 

Du md videre i din sogen, og 
gdr nu ned af gangen igen. 
Du kommmer til en elevator. 
Du prover at kalde pd eleva- 
toren ved at trykke pd knap- 
pen. Men der sker intet! Hur¬ 
tigt fatter du, at den md sidde 
fast et sted. og i desperation 
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samler du al din styrke og 6b- 
ner med vceldig kraft eleva- 
torskakten, "opendoor". For- 
sigtigt trceder du ud i skakten. 
Et hurtigt eftersyn pa hver eta- 
ge forvisser dig om, at der i det 
mindste ikke er fjender gemt 
her. Men snarere nogle 
"gems'' ,som du finder ved at 
undersoge HELE skakten noje- 
re.''exam niches". Nubevae- 
ger du dig op p6 anden sal. 
hvor der er en gang magen til 
den forste. Det sydligste mm 
viser sig at indeholde nogle 
kemikalier. Er de mon farlige? 
Du tover ikke et minut, men 
tager resolut kemikalieme. 
uden at tcenke p6 dit eget ve 
og vel. Sagen fremfor alt! Ke- 
mikalierne skal blandes, s6 
du m6 finde et laboratorium. 
og hurtigt! Du g6r nord, nord 
og nord igen - og til din lettel- 
se er her et laboratorium. Som 
den dygtige videnskabs- 
mand du er, mixer du de far¬ 
lige kemikaler. Du har nu 
midlet til at uskadeliggore 
"The Lizard", din anden cer- 
kefjende, som du lige sd et 
glimt af p6 stueetagen.' 'Exo¬ 
tic Chemicals" venter du lidt 
med - de skal forst bruges se- 
nere. 


sved. Du konstaterer nu, at 
"Ringmaster" ikke eksisterer 
mere. Endnu engang har din 
formidable intelligens reddet 
dig fra en tilsyneladende 
hdbles situation! Du begynder 
at kunne smage sejrens sod- 
me! Men tag dig i agt. Spider- 
man - din opgave er langt fra 
lost! Beslutsomt kravler du op 
p6 computeren,' 'go compu¬ 
ter". Du korer programmet i 
computeren, "type run" (hvil- 
ket program?!!). Pressen 
mangier stadig vcek 950 kilo 
for at kunne starte?! Der er alt- 
s6 en presse et eller andet sted 
i bygningen! Igen er du klar 
over sagens alvor, og haster 
ned til "Madame Web" med 
dine fundne skatte. Lige in- 
den du trceder ind til mada- 
men. opdager du at en mand 
af vand st6r til hojre for dig - 
"Hydroman". I iummet til 
venstre er der en' 'biogem'' - 
men ogsd et "Natter energy 
egg ". Du ved at et sddant ceg 
er direkte dodbringende. 
Endnu en raekke umulige op- 
gaver! N6 men Spiderman 
har indtil nu klaret alle skcere- 
ne, s6 dette kan du nok ogsd 
tackle! 


hvis du nu lader temperatu- 
ren falde, sd det bliver kolde- 
re. Hvad vil der sd ske med 
"Hydroman"?! Med ivrige 
hcender cendrer du pd termo- 
staten. sd det bliver koldere, 
"lower temp". Du aflceser li¬ 
ge termostaten - det er ikke 
koldt nok. Brr!! Sd fanger no- 
get andet din opmcerksom- 
hed - et maleri. Beundrende 
stdr du og nyder billedet, da 
du bemcerker en lille uregel- 
mcessighed i overlladen. Hur¬ 
tigt og ubarmhjertigt licenser 
du det for sd flotte billede fra 
hinanden. "rip painting". 
Ned pd gulvet daler der et 
stykke papir - ved alle spider- 
manske dcemoner! - det er 
da ikke... - Jo. det er formu- 
laren. du skal bruge for at 
kunne lave net! Du har des- 
vcerre ikke tid til at hvile pd 
laurbcerrene. Et bord. der stdr 
henne i hjornet. skal nemlig 
ogsd underkastes en ncerme- 
re ransagning.' 'exem desk''. 
her finder du nok en "gem". 
Sikker pd at denne etage nu 
er' 'clearet''. forlader du den. 
Nu er det vist tid til at besoge 
"Madame Web" igen. 

Nu md det vist vcere pd tide at 
kigge til "Hydroman". Duser 


"Mysterio's" spejlbillede! Du 
vender dig om i et nu, men ser 
kun et vindue. De bange 
anelser begynder at komme 
igen. idet du kravler ud af vin- 
duet. "climb window". Her 
pd ydersiden af bygningen 
nyder du den friske luft for et 
ojeblik, for du fortscetter. 

Udiden 
bid luft 

Med et vceldigt spring, 
' 'jump'', hopper du sd at sige 
ud i den bid luft. Dette kan 
kun lade sig gore, fordu DU er 
Spiderman. Her moder du 
pludselig "Mysterio", der som 
et lyn fra en klar himmel stdr 
foran dig. men, der er noget 
gait?! Han gor jo ikke noget?! 
Kan du mon stole pd, at' 'My¬ 
sterio" er harmlos? Abenbart. 
for han forholder sig jo fuld- 
stcendig rolig. Det er rart at vi¬ 
de. at alle ikke er ude efter 
ens skalp! Herude midt i luf- 
ten, har du jo muligheder for 
at finde mm, der indefra byg¬ 
ningen ikke kunne nds. Med 
en udstrakt arm foler du dig 
frem, forst nord, sd syd, "feel 
north/south''. Pludselig fdr du 
fat i en vindueskarm og krav¬ 
ler ind. Her er endnu en 


opspind 


Sddan klarer 
du Ringmaster 

Du gdr tilbage til skakten. 
men pd vejen derhen opda¬ 
ger du et andet mm' 'Compu¬ 
ter room" (aha! det lyder jo til- 
talende). Herinde venter 
' 'Ringmaster", en anden 
dodsfjende, pd dig. Med sine 
hypnotiske evner foler han sig 
sikker, men du har situatio- 
nen under kontrol. Uden for 
mmmet lukker du dine ojne! 
Du gdr et skridt mod vest, og 
er nu i selskab med ' 'Ringma¬ 
ster" . Men han kan ikke gore 
noget. Stadig med lukkede 
ojne presser du knob indad. 
"press knob", som gjaldt det 
livet, og sd drejer du pd den, 
"turn knob ". Med en kraftan- 
stengelse dbner du ojnene, 
der er klistret sammen af 


Af sted ud i skakten igen og 
opad. HO VS A! Du kan plud¬ 
selig ikke komme hojere op? 
Du lcegger nakken tilbage og 
kigger opad og ser - bunden 
af elevatoren. Aha! Sd det er 
her. den sidder fast! Igen md 
du sarnie alle dine spider- 
manske krcefter, og skubbe 
bunden af elevatoren opad, 
"push elevator". Det lykke- 
des! Du kravler nu op pd aller- 
sidste etage. den der for var 
spcerret pd gmnd af elevato¬ 
ren. Her er ogsd en niche, og 
mon ikke den ogsd indehol¬ 
der en "gem"? Inde i dette 
nye mm. er noget af det forste. 
du lcegger mcerke til. en ter- 
mostat. Hurtigt finder du ud af. 
at man kan cendre pd det, sd 
det bliver enten varmere eller 
koldere i bygningen. Jamen. 


dig omkring i mmmet. men 
der er ikke andet end en issta- 
tue og et frosent akvarium. 
Med et kynisk smil om mun- 
den tcenker du pd "Hydro¬ 
man " og hans iskolde skceb- 
ne . . Sderdetakvarietstur- 
du tager det og lcegger det 
hos "Madame 'Web". Du gdr 
med selvsikre skridt hen mod 
skakten endnu engang. op til 
anden sal. Nu skal du til at 
bmge "Exotic chemicals", 
samt net-formularen. Du scet- 
ter ncesen mod nord. og hen 
til laboratoriet, for endelig skal 
du lave net (pd ddse).' 'make 
web". Du kan ncesten ikke 
vente lcengere! Du styrter ned 
af skakten, og hopper ind pd 
forste sal. Mens du stdr med 
vanlig gmndighed og under- 
soger spejlet. ser du pludselig 


' 'gem'' til din snart store sam- 
ling. Ud igen, men hvad med 
at prove at kravle opad, 
' 'Climb roof"? Hvad er nu det? 
En ventilatorskakt! Den forer 
garanteret hen til flere 
"gems', tcenker du, alt imens 
du med lysets hast fjerner net- 
tet, der sidder foran ventilator- 
skakten. "removemesh". Sd 
kravler du ind i skakten, "go 
duct", og ender ved selve 
ventilatoren. Den roterer med 
over 500 mph (ca. 800 km/ti- 
men), sd igennem "fan" kan 
du ikke komme - endnu! 
Hmm, hvordan vil du klare 
det? Men dit ansigt afslorer in¬ 
gen folelser, kun beslutsom- 
hed. Gmndigt undersoger du 
ventilatoren. og ser en knap 
midt pd viften! Du haler 
sprayddsen med net op, og 
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letter strdlen mod knappen. 
Vitten karer rundt med en ra- 
sende kratt, men pludselig 
begynder den sd smdt at tage 
farten at. Det er dig, der har 
sprayet nettet mod knappen! 
"spray web (at button)”. Du 
mil gore det endnu nogle 
gange, for vitten gdr helt i std 
Sikkert kan du kravle igen- 
nem vitten uden at blive hak- 
ket til pluktisk, og bevceger 
dig nu i et netvcerk at gange. 
Et usvigeligt instinkt fortceller 
dig dog, at den rette vej er 
nedad, "down". Du gdrned 
og ned og ned, og det tales 
som om du gdr i en evighed. 
Pludselig stdr du i et nyt rum. 
Hdrene pd dine arme begyn¬ 
der at rejse sig, og det laber 
koldt ned ad ryggen - her stdr 
endnu to at dine vcerste Ren¬ 
der, Doktoren og Electro. Du 
tager en dyyb inddnding, og 
gdr sd til vcerks. Dit hjerte stdr 
stille, mens du griber tat i dok¬ 
toren, "get doctor". 1 nceste 
nu ser du en ''bolt". 1 vild de¬ 
speration sldr du Electro, "hit 
Electro", og begge dine tjen- 
der er lammede at den stram- 
tarende' 'bolt". Du har stadig 


vcek ikke hetl torstdet hvad 
der er sket, mens du under- 
sager begge tor "gems". Du 
tortscetter deretter videre mod 
vest. Her tinder du pressen 
som computeren talte om! 
Hvad stdr der pd displayet? 
124 kg Computeren sagde, 
at der manglede 950 kg, tar 
den ville starte pressen. Nd, 
men sd md du jo snyde lidt. 
tor sd meget papir er her slet 
ikke! Du gdr op igen, og hen 
til skakten, og videren op til 
alleraverste etage. Her tager 
du bordet, maleriet og alt 
hvad du kan bcere. Ned igen 
med den store last til pressen. 
Her lcegger du al din bagage, 
og lceser displayet igen. 
Arrgh! Der mangier stadig 
vcek noget vcegt. Sdledes gdr 
du rundt i hele bygningen og 
tager alt muligt og umuligt 
med dig. Der kan endda 
skimtes et lig eller to blandt 
din bagage, og alt det lceg¬ 
ger du pd pressen. Du kigger 
igen pd displayet, og nu pas¬ 
ser det nogenlunde. Du forla- 
der igen disse rum, og begi- 
er dig op til "computer ro¬ 
om". Her hopper du let og 


elegant op pd computeren 
endnu en gang. Du skriver 
igen, "type run". Du spcener 
ned til pressen igen, og HOV! 
her er jo et fcerdigt nummer at 
bladet (SOFT Special mdske?). 
Du ndr dog ikke at lcese meg¬ 
et, for idet du dbner det. falder 
der en "gem" ud. Begcerligt 
tager du den til dig, og spce¬ 
ner op til "Madame Web". 
Slutningen pd dette mareridt 
vinker lorude. men farst var 
der vist noget med en "bio- 
gem" og et akvarium. Hurtigt 
bevceger du dig op pd alle¬ 
raverste etage igen, og regu- 
lerer pd termostatet, sd det 
igen bliver varmere i bygnin¬ 
gen.' 'Raise temp''. Tilbage til 
' 'Madame Web''. hvor akva- 
riet venter. Du tager akvariet 
og hcelder det smeltede vand 
ud, og endnu en "gem" er 
fundet. Hvilelas som du er, 
placerer du dig lige uden for 
rummet med "biogem". Du 
drejer hovedet 90 grader til 
venstre, "look west". Med en 
hdnd sd rolig som Eiffeltdrnet 
sigter du emd sprayddsen pd 
"Biogem'en". Du tager et 
dybt og inderligt suk, og tryk- 


ker sd af,' 'spray web (at bio¬ 
gem)' '. Den sidste ' 'gem " er i 
din besiddelse! For sidste 
gang skal du lcegge en 
"gem" hos "Madame Web". 
Du beder om "score", og 
pludselig kommer "Chief 
Examiner" (fra The Hulk), og 
giver dig et kodeord. Det skal 
du huske. hvorfor nu det. 
tcenker du, skal du igennem 
endnu et eventyr?!! 

I hvert fald har du nu last 
eventyret Spiderman. 

P 6 eventyrligt 
gensyn 

Jeg hdber, du har hygget dig 
under denne dramatiske 
gennemgang af edderkop- 
pemandens rejse. Forhdbent- 
lig har du samtidig fundet 
svarene pd alle dine spargs- 
mdl. Jeg hyggede mig bravt 
undervejs, og vil samtidig be- 
nytte lejligheden til at anske 
alle en glcedelig JUL og et 
godt NYTAR. 

Vi modes uden tvivl igen i 
SOFT Special, hvor jeg vil 
komme med nye eventyrlige 
udfordringer.D 

Christian Martensen 
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K 0 b det nye ’’hotte” 
nummer ccf 5 ’Alt om Data 
i kiosken. Kun kr. 23,85. 


Du kan ogsa fa bragt bladet 
gratis til din bopcel. 

12 numre koster kr. 262,35. 

Ring efter et girokort pa til. 01-11 28 33 


r* 

l T 

i ' 


















°9b^ Us 2.0’h er 

*tiu}£?Ge?,l re br£% e t- 


Qt 




^SSL t9 ^s^SS^SS' 
^cflfe ^sSSs - ^' 

sstts^.o.^ve/jggg/e. 




I 


ory Pres se a J k ^e. 

feSs- 


s?irs?? 

*°-ot<£*aien£°enn 


le 9. at„ Uc Uen ge nn~ 

gzsgzSsii 

S§S§S* 


, * 38 * 3 g 










' .ss«SE?asf*“**« 

SS**" aer ersl <Ues de ^ dert ds,e 

'“css 


f 5 s§ 3 ?^s 

r '3tige P - h L ‘ 9es orn i°^ e %e 

^ b ^$ps / 

£*<***._ S4a «'« / 


. 

,°^ e f^o nd 

^or^stel^ 




i#l ?5 


mmss^i 


gfiSL + °j-a 


••iSS&S 


&s& 2 sz&a; 


//isssl Co,< ^^ 

/ ^^££*5?*'***., 

* ?5? - 
S&^^*bs®>, 


r >™£ n k c °‘°Ss? e "?; 

' p °^d«n *®i rvieir 4 0 w to 

iZ^ elsl °£k Ossils < b 0 lkken ' 

g*?**t***. a *£ 

S2s.?f25»S^ 

^<„'C 0te ^o Ve / 

... 0>e - / 


w ^ae, e " 

On aJn Sp >‘- 

>9an^ 4 


'” us <o w ;' 




*°°***^. 


^ er <*et ue - ** 

^:-Cr n 

° e:e 9ler U0s ty- 

9 er - Wkel 







, Gr vtik 

L va 


Aft 


SQT 




c ler fr 

HHp? 

£*>■*« q, ^"ovj 

##£%? 

k or>c,l SV ^est Uc ^e 

SiSSSf i 


orr 'J^Ue ^'We 
• ^/nr-- u/l 


v en 


*-5X{*S5 

°ge 


% m e/or 

n; a/ en 

hc *>ttet. 


terst 


^Ocj.' 


„ O' 1 " 

5 S*£e§ 5 L- 

^* 3 |SSr 

dett e Mattes h^’ a* 

t Selv tT}Qt h %I **&*» 


e/ e - 


* 


^Jec/ 


^a/. e ' bc&kkl^ 0 * e r - ■ 




5 


u er/// 





i 


° Ur Mn " <* 

*°v e ? 



S? 5 > 

*W2j? ulr °l‘ge e 


S^SS^S^S; 


!/1 <*©/£*** cfe. 

keS keri °og s6 

p£?2? r ^ 

^< 3 s*£ 3 ?« &>*.- 


>■ 


>05, 


Te fo, 


AvHfr."'' °/D/ (ffl ;"« o . 

iSK&Js; 


*v* 

ns &*! 5 s** 


‘ior 

?*n* 


Oe, 




^f^Z e < enae ' 

^SsS&S?? S5^s 


°v er . 


e tes/; 


s, °/) Drt 

OO"' 




’e/ 


c o/, 


e trcBjTV-og 

* ~ s<5- 


^i^z e ' gesortl2 ° 6 

^c?^^X CO i^?0ef 

nytl ejo y ; 


°^zy n ^z:^°r 


? kpr °9rarZ >d? 

l^o riJ^Wc 


1/2 °®ft 


(5 Q ^er m Corni S!ao kQk 

C/)e ss 4 n ^ Q n hi° a ° r e 


b Qr e 


0. 


blot 


c o/q. 


^°9Sk 


o v er leg bl ev 


°9 

64. 

'SSQs 


7e *< 






111111111111III INI lllllllllllllllllllllllllllllllllllllllllllllllllllllllll 



Med denne lille interruptruti- 
ne, kan du stille TI$ til en hvil- 
ken som heist tid pa d 0 gnet. 
Deteneste du gar er at skrive 
tidspunktet lige nu. Tiden vil 
nu std averst til hajre pd skcer- 
men konstant. Det sjove ved 
denne intermptmtine er dog. 
at den kan kare sammen 
med forskellige programmer. 

Ulrik Smed 





10 FOR N*49152 TO 49319=READ fl 
•'POKE N, FI: NEXT N 
20 INPUT"HVAD ER KLOKKEN ";KL$ 

30 POKE 53246,VflL<MID$CKL$,5,2)) 

48 POKE 53245,VRL<MID$<KL$,3,2)) 

50 POKE 53244,VAL<f1ID»<KL$;1,2)) 

100 SVS 49307 
110 END 

200 DATA 72,138,^2,152,72,174,255, 
207,232, 142,255,207,224,60,208, 88 
210 DATA 169,0,141,255,207,162,3,202, 
189,252,207,24,105,1,157,252 
220 DATA 207,221,152,192,144,9,169,0, 
157,252,207,224,0,208,232,162 
230 DATA 252,142,115,192,162,34,142, 
131,192,232,142,149,192,32,112,192 
240 DATA 238,115,192,162,36,142,131, 
192,232,142,149,192,32,112,192,238 
250 DATA 115,192,162,38,142,131,192, 
232,142,149,192,32,112,192,169,14 
260 DATA 162,6,157,33,216,202,208, 
250,104,168>104,J70,104,76,49,234 
270 DATA 162,0,173,254,207,201,10, 
144,5,233,10,232,176,247,72,138 
280 DATA 105,48,141,38,4,104,162,0, 
201,1,144,5,233,1,232,176 
290 DATA 247,138,105,4@,141,39,4,96, 
24,60,60,120,169,0,<141,20 
300 DATA 3,169,192,141/21,3,88,96 















































































































MOMS 


Har du egen virksomhed. el- 
ler skal du blot tore regnskab 
med moms. Sd er der her et 
program der kan hjcelpe dig 
iditarbejde. 

Programmet kan holde rede 
pd op itl 500 torskellige 
indtcegts-/udgiftsbilag. Disse 
reprcesenteres ved en dato, 
og et belob. Deretter beregnes 
momsen automatisk at pro¬ 
grammet. Bemcerk at pro¬ 
grammet udregner moms 
som 18.03 at det indtastede 
belob. Det vil sige, at hvis du 
indtaster 100 kr. vil moms vce- 
re 18.03 kr. (Det kaldes 'Herat 
udgor moms"). 

Programmet har folgende 
features: 

Generelt gcelder: Program- 
met kan ikke standses ved 


RUNSTOP/RESTORE. at sikker- 
hedsmcessige grunde Og at 
linie 0 kan indeholde dit eget 
navn i stedet tor Ernst Tobish. 
Under indtastning er der mu- 
lighed tor at rette. Det gores 
ved tryk pd (*) ved sporgsmb- 
let: 0nsker De at indtaste 
igen? 

Hvis du trykker (*) vil du blive 
bedt om nummeret pd bila- 
get. 

En anden mulighed for at ret¬ 
te fejl er. hvis du indtaster fejl 
under datoen. Du vil nu have 
mulighed for at rette sidst ind¬ 
tastede bilag. 

Under udskrift er der forskelli- 
ge sporgsmbl der blot skal be- 
svares. 

Jacob Heiberg 


1) Indtastning at belob 
(max. 500). 

2) Udskrivning pd Printer 
(her en ASCII-prlnter). BE- 
MJERK! Centronics eUer 
RS232 er IKKE indbygget 
(Det kan eventuelt softloa- 
des forst). 

3) View skcerm. Her kan 
du gennemlcBse alle ind¬ 
tastede bilag (kun 20 at 
gangen pd skaermen). 
Ved tastetryk kommer 
endnu 20 etc. 

4) Load, her har du mulig¬ 
hed for at hente et gam- 
melt regnskab. Og det er 
enten fra bdnd eller disk. 
BEMJERK! Alle nyindta- 
stede data vil sd blive slet- 
tet. 

5) Save, her kan du gem- 
me de ny-indtastede da¬ 
ta. Du bestemmer selv, 
om det skal vcere pd bdnd 
eller diskette. 

6) OPstart. Her kan du 
starte programmet op pd- 
ny, dvs. du kan slette la- 
geret og derved begynde 
forfra. BEMJERK! INDTA¬ 
STEDE DATA SLETTES! 

7) Slut. Her afsluttes pro¬ 
grammet, idet program- 
met sletter sig selv. 








O BR*-'-RNST |OB ISH * 

10 REM ft*************************** 

»»« 

IB REM «*» MOMSREGNSKftB PR. KVflRTflL 
*»» 

14 REM *** - 

*** 

16 REM **« MfiOE BYI JACOB HEIBERG 

*«« 

IB REM *** VERDI.09 EhO 1985 10 27 

20 REM *** 

*•* 

22 REM *»*********»******«*«**•»«*** 

»*» 

24 1 

26 REM •*•*«*«••***** 

28 REM * INITIER1NG * 

30 REM «>*******«*••* 

32 AN-5001NR-01 RUT-71 MOMS-18.03I NET-0 
34 DIM O*! AN) .BT< AN> ,M3I AN> ,R*C RUT) 

36 SCR-6 IBRD-81 PEN-1 10*1 0>-'DO/HM' 
IZX*-BTR*I RUT) IZX*-MIO*l ZX«,8> 

38 RESTORE 

42 DATA--,«)TAST" , ■ JDSKRIV, 

•XIEW 8KAERM","LOAD*."DAVE■, 
TPSTART", '*LUT' 

44 FOR F-l TO RUTIREAD R*! F> I NEXT F 
48 PRINT"<UM.OCK,TEXT,LOCK)' 

I POKE 808,251 

52 CLOSE 21 OPEN 2,0IBA«-' IILLAG 
-A TO IEL0B 

\OMS ' 

56 IF LENC BR*> >14 THEN PRINT'! CLR) |R 
UGERNAVN FOR LANGTI' 

I PR I NT ' ! CRSR h£D2)RUN! HOfE > ' 

•LIST 0-1 

58 IF LENCBR6X14 THEN BRD-BR**' * 

60 IF LENCBR6X14 THEN BR»- ■ '«BR« 

IGOTO 60 

113 FOR Z-l TO 31Z-1 I CLOSE 1lCLOSE IS 

114 PR INT'! CLR)'IG06UB 2000 
I REM HEAOER-COLOUR 

115 PRINT'< CRSR NE017, 

SPACE ) X>ARBEJOET AF 

I <ACOB |E I BERG !C> 198SIH0I*E, 
CRSR NED7>• 

116 FOR F-l TO RUT I PR I NT ,F) ' I 'IRKF1 
I NEXT F 

118 PRINT,'-' 

120 PRINT'XWLGI') 

122 POKE 204,0 

124 POKE 198,01UAIT 198,1IGET AS 
126 IF AS! " 1 "OR AS>ZXSTHEN 124 

128 POKE 207,01 POKE 204,1 

129 GOSUB 2500 
136 R-VAL! AS) 

138 IF R-6 THEN RUN 

140 ON R GOSUB 200,300,700,400,500,0, 
600 

142 NEXT Z 

200 KR-KR-1 IGOSUB 2000 
I IF RE-1 THEN 207 
202 PRINT'! HOME,CRSR NE07, 

SPACE)/R. -ATO IELOB 

\OMS ' 

204 PRINTIPRINT IS?)TAB! I0>) 

DS! NR - 1 ) "! CRSR VENSTRE5 ) ') 

IINPUTD2,AS 

205 IF LEN! AS)! >5 AND AS!)'»-'AI«I AS! 
>'FEJL'THEN PR INTI PRINT'-ORKERT 0 
ATO'lGOTO 202 

206 IF AS! >'FEJL'THEN 208 

207 NR-NR-1 IPRINTIPRINT'! CRSR NED4)N 
R.'NR" OATOI'DS!r«>' 'BT! NR ) ' 

■MS! M?)I GOTO 202 

208 PRINT'! CRSR I'EO)') 

TAB! 18) '-■ IPRINT'! CRSR 0P2 

)■1 TAB! 18))IINPUTD2,BS 
212 B-VAL! BS) 

214 IF B-0 THEN PR INTI PR INT'-EJL I B 
EL06!CRSR 0P2)'IG0T0 208 
218 BT! NR ) -BI MS! NR ) -MOMS*! B/100 ) 
l DS! ) -AS 

220 BT!NR)-INT!BT!NR)*100*.5)X100 
222 MS! NR)-INT! MS! NR)*100*.5)X100 
224 PRINT'! CRSR NED)') 

TAB! 28)'-'IPRINT'! CRSR 0P2 

) •) TAB! 28>)MS! NR) 

226 I 

227 IF RE-1 THEN RE-01KR-Z I AS-" 

I POKE 198,0 

228 PRINT'! CRSR NED>INOTAST IGEN?') 
230 POKE 198,01POKE 204,0IWAIT 198,1 

I GET AS 

232 POKE 207,01 POKE 204,1 

I IF AS-'J'OR AS-CHRS! 13)THEN 200 


234 IF AS-'*'THEN PRINT' IVILKET BILL 
AG!')lINPUTR2,NSlZ-M? I RE-1 
I M?-VAL! NS) l GOTO 200 
236 RETURN 

300 GOSUB 20001 PRINT' ,0SKR1VE RUTIfR' 

IPRINT'-'IPRINT 

IPRINT 

301 IF m-0 THEN RETURN 

302 PRINTTVERSKRIFTI ') I INPUTM2.0VS 
304 PR I NT l PR I NT 'SI DE ANBIVELSE ! J/N) 

I J!CRSR VENSTRE)')lINPUTD2.PGS 
306 PRINTIPRINT' ,OSKRIFTS OATOI ') 

l IM»UTD2,DTS 

308 PR I NT I PR I NT ' I RYK EN TAST NAAR PR 
INTEREN ER KLAR I ■ 

310 POKE 198,01WAIT 198,IIGET AS 

318 CLOSE 4lOPEN 4,4iPG-72IMX-63 

320 PG-01 CLOSE 41 OPEN 4,4 

322 MX-63 

326 GOSUB 2100 

328 FOR F-I TO N? 

330 I MT-MT +MS! F)lBE-BE-BT! F) 

332 I MSS-STRS! MS! F) ) 

I IF I NT! MS! F ) ) -MS! F >THEN MSS-BTS* 
'. 00 ' 

333 IF ASC! RIGHTS! MSS, 

2))-46 THEN MSS-MSS*'0' 

334 I BTS-STRS! BT! F > ) 

l IF INT! BT! F) )-BT! F)THEN 8TS-BTS* 
'. 00 ' 

335 IF ASC! RIGHTS! BTS, 

2)>-46 THEN BT*-BT**'0* 

336 l NRS-STRSIF) 

338 I IF LENCKRSX4 THEN N?S- • • *N?S 
lGOTO 338 

340 I PRINTD4,' 'M?S' 'OS!F>) 

TAB! 15-LEN! BTS) >BTS> 

TAB! 20 -LEN! MSS) ) ) MSS 
342 I LIN-L1NH 

344 I IF LIN-hO! THEN PRINTD4IPRINTD4 
IGOSUB 2100 

346 h«XT F 

347 CXS-'•IFOR C-l TO 60ICXS-CXS*'-' 
IFEXT CIPRINTD4 ,CXS 

348 I MTS-STRS! MT> I IF INT! MT/1 > -MT/ 

1 THEN MTS-MTS- ' . 00 ' 

349 IF ASC! RIGHTS! MTS, 

2)>-46 THEN MTS-MTS*'0' 

350 I BES-STRS! BE) I IF INT! BE/1 >-BE/ 

1 THEN BES-BES-'.00' 

351 IF ASC! RIGHTS! BES, 

2>)-46 THEN BES-BES-'O' 

352 M*S-' -IDS! NR)-'I ALT' 

354 I PRINTD4,' 'M?S' "DSINOI 

TAB! 15-LEN! BES) )BES) 

TAB! 20-LEN! MTS) >)MTS 
358 FOR F-l TO LEN! BES)ISS-SS-'-' 
IfEXT F 

360 FOR F-l TO LEN! MTS)IXS-XS+••• 
NEXT F 

361 OS! M? ) - ' 

362 I PRINTD4,' 'KRS' 'DS!M?>I 

TA8! 15-LEN! SS) )SS) TAB! 20-LEN! XS) )) 

XS 

364 FOR F-LINU TO I*K»5IPRINT#4 
I NEXT F 
366 RETURN 

400 GOSUB 2000■GOSUB 2200 
I IF E-l THEN E-OIRETURN 
404 OPEN 1,DEV,S,NSIIF DEV-8 THEN IN 
PUTS 15,0,WS,E,RIIF Q-62 THEN 2300 
406 IKPUTD1.M? 

408 FOR F-l TO NR 

410 l INPUT# 1 ,OS! F > ,BT! F> ,MS! F ) 

414 (EXT F 
416 I 

422 CLOSE 1 
424 RETURN 

500 GOSUB 2000 IGOSUB 2200 
I IF E-l THEN E-01 RETURN 
504 OPEN 1,DEV,S,NS*',S,W' 

■IF DEV-8 THEN INPUTH15,0,WS,E,R 
■ IF 0-63 THEN 2300 
506 PRINTR1,NR 
508 FOR F-l TO M? 

510 ■ PRINTD1 ,0S! F)CHRS! 13)BT!F)CHR 
SI 13>MSIF> 

512 )EXT F 
514 I 

518 CLOSE 1 
520 RETURN 

600 PRINT'ICLR) ,- 

-. ') 

602 PRINT' | SFSLUTNING PAA NOMSB 

EREGNING I') 

604 PRINT''- 

-1 " 

606 PR I NT "C CR8R hCD)”R “E SIKKER C J/ 


N)I JC CRSR VENSTRE ) " ) •POKE 204,0 
608 GET AS« IF ASO'J'AND ASC >“N'THEN 
608 

610 IF A*--N"THEN RETURN 
612 PRINT*PRINT"< CRSR NED3, 

SPACE 16)_ARVEL- 
614 POKE 808,237 
616 NEW 

700 PRINT"< CLR ) IERMED VISES INDTASTE 
OE DATA *' 

702 PRINT'- 

■ 

704 FOR F-l TO N* 

706 * PRINT F-l "TAB< 10 >0*< F > ,BT< F > , 
MS< F) 

708 i IF I NTT F/20)-F/20 THEN POKE 19 
8 ,0IU1A IT 198,1 I GET A** PR INT"< CLR ) • 
710 »^XT F 

712 POKE 198,0*PRINT"| RYK EN TASTI' 

* WAIT 198,1 * GET A* 

714 RETURN 

2000 PRINT'<CLR,CYAN> , - 


2001 PRINT'| 
8 

2002 PRINT'| 


NOMSREGNSKA 


2003 POKE 646,PEN*POKE 53280,BRO 
IPOKE 53281,SCR 

2004 NR*-STR*<NR>:NRS-MI0S<NRC,2> 

2005 IF LENC NR*>< 3 THEN NR*-"0'*NR* 
iGOTO 2005 

2006 PRINT' I4NTALI'IN?*;' | ';BR*1 
' | -TNRUTER l m > 

2007 PRINT' •-•- 

-1-1-I 

2008 PRINTIPRINT 
2010 RETURN 

2100 PRINTW4•PRINTH4,CHR*< 17>' ,OSKRI 
FT 0. "OT* 

2102 TB-30-C LENC 0V*)/2) 

IPRINTW4,TABC TB)CHR*< 14)CHR*C 17>0 
V*ICHR« 15) 

2104 IF PGS-'J"THEN PG-PG^l 
*PRINT#4,TABC37)'-'PG" -" 

2106 PRINTH41 PRINTH4,CHR*C 17>BAS 
iPRINT#4ILIN-6 

2107 IF PG8-"N'THEN LIN-5 

2108 RETURN 
2200 G06UB 2000 

2202 IF R-4 THEN PRINT"IEMAERK, 

ALLE DATA 6LETTE6I■ 

2204 IF R-4 THEN PRINT'ONSKES GAWCL 
FIL HENTET <J/N)* J<CRSR VENSTRE 
)"1 

2206 IF R-5 THEN PRINT'ONSKES DATA 0 
EMT < J/N) l JCCRSR VENSTRE) "I 
2208 POKE 204,0* GET A* 

« IF A*<)"N"AND A*<>"J'AND A»< >CHR 
SC 13 ) THEN 2208 

2210 IF AS-"N"THEN PRINT AS)iE-l 
•RETURN 

2212 PR I NT *PR I NT I PRINT'/AVN PACCRSR 
VENSTRE,CRSR OP).(CRSR NED, 

SPACE)FIL* m t 
2214 INPUTS2,NS 

2216 PRINTiPRINTiPRINT"|ACCRSR VENST 
RE,CRSR OP).< CRSR NEO)ND ELLER 01 
SK C B/D)« DCCRSR VENSTRE)"I 
2218 POKE 204,01GET AS 

I IF ASO'B'AND ASC )'O'AND ASC >CHR 
•C 1 3 )THEN 2218 
2220 DEV-8iPRINT ASiS-8 

2222 IF AS-'B'THEN OEV-liS-O 

2223 IF R-5 AND DEV-1 THEN S-l 

2224 PRINTtPRINTiPRINT"_IGTIGT INDTA 
STET C J/N)i JCCRSR VENSTRE)") 

2226 POKE 204,01GET AS 

I IF ASC>"J"AW) ASC > 'N'AND ASC >CHR 
S< 13)THEN 2226 

2228 PRINT ASiIF DEV-8 THEN CLOSE 15 
IOPEN 15,8,15,"I" 

2230 IF AS-"N'THEN 2200 
2232 POKE 207,01POKE 204,1 
2234 RETURN 

2300 PR 1 NT '< CLR,SPACE6,GUL, 

RVS 0N)-£JLMEODELELSE OISKCRVS OF 
F> • 

2302 PRINT' -" 

2304 PR I NT *PRINT'FEJL',"BETYDNING' 

• PRINT"-"-"IPRINT 

2306 PRINT Q,WS 

2308 FOR F-l TO 12001NEXT F 

2310 RETURN 

2500 BE-0•MT-0•CXS-•"•XS-'■•SS-■■•Q-0 
2502 RETURN 


25 











Torpedo 

submcnb 


■ Din opgave er at torpedere 


de fjendtlige skibe fra din 
neddykkede ubdd med dit 
periskop og 20 torpedoer. Du 
fdr 50 points for GOBLERE. 100 
points (or HANGARSKIBE og 
250 points for KRYDSERE, og 
1000 points lor DESTROYERE. 
Du styrer ubdden med 1 (or 
venstre, 2 lor hajre og 0 lor at 
allyre en torpedo.□ 

Allan Serensen 


RUN 080 

l3 80 BORDER 1: PAPER 1: INK ft; C 

30 PRINT AT JMK 6;**T**; J 

NK 8;"O"; INK 6; "R’*; ink 7;**p'*; 

IrC 

4; PAPER 3; 

BO PRINT AT 3/3;"Din OP9«V( «r 
at torpadarar da /JandtlJya 

• Ubt fra din neddy&tede u- 

baad aad dl t ptrmop og a 

o torpedorer." 

BO PRINT AT 0,4.; "OOBLER 9 9 9 
BO POINTS" 

70 PRINT AT 10,4;"HANGAR » 

100 POINTS" 

BO PRINT AT 18,4; “KRVDSER 
aso POINTS** 

00 PRINT AT 14,4;"DEBTRYEA ^ 
lie PRINT AT 18^8; •*,_ 


•O IP INKEVa-"#” AND tor-O THE 
ET tor-1: LET torf-19: LET to 
paral: LET aa-aa-l: PRINT »1; 

1 , aa; ’* ** 

O IP tor-0 THEN BEEP .008,60- 
t vpa: OO TO 840 

S UET torf-tor/-l 

ip torf-e or tor/-a then oo 

3 PRINT at torf,tori; INK 6; ** 


8§S SS!5r‘S?-|Sr/,torl;" " 

! «0 NEXT f: PRINT AT 3,0; PAPER 
; BRXOMT l; 

850 OO TO 370 

860 LET at-"^ DANE OUE 

870 POP n-1 TO fi 

560 POR f-1 TO 30: PRINT AT 18. 
f; INK 3a(RND*4>;«f(f); INK 6; "A 
**: NEXT f: PRINT AT 12,31;” ** 

800 LET a8• •• m 

see NEXT n 

610 IP »C >hi THEN LET hi-SC: PR 
INT AT 14,9; PLASH 1; ** NY HIOHSC 
ORE " 

630 PAUSE 300: PAUSE 100: OO TO 
80 

630 IP torf-* THEN GO TO 710 
640 IP NOT POINT ((tOTlfS**),10 
91 THEN OO TO 630 
680 POR n-7 TO 1 STEP -.8: BEEP 
.01,30-rnaeu . print at a.inri; 

INK n; •*#**: NEXT n: PRINT AT B.t© 

ri;** f * 

660 LET ac-acase 

670 IP aa-0 THEN OO TO 860 

680 LET tor-0 

600 PAINT AT O. lO-(SC >90) - (4C>9 
90)-(ac>eooo); bright l; ink O; 
PAPER B;a c 
700 OO TO 830 

710 IP NOT POINT t I torl»0a4J ,14 
6) THEN OO TO 610 
720 POR n-7 TO 0 STEP -.6: BEEP 
.©1,30-fnaSJ PRINT AT 3,/; ISRJ 
GMT i; INK n; PAPER 5;t*cret,typ 
a): NEXT n: PRINT AT 3,7; PAPER 
8; BRIGHT 1; ** 

730 IP type-1 THEN LET ac-acalO 
0 740 IP type-3 THEN LET sc-acaaB 


1 00 PRINT AT 6^0; ** * 9 9 9 

00 PRINT AT 19. IB; INK 4; "A." 
310 PRINT AT 0.0; INK O; PAPER 
B; BRIGHT 1;** SCORE OOO00 
HIGH 00000" 

330 PRINT AT O,27-(h1 >9999); PA 
PER 5; INK ©; BRIGHT l;hi 
330 LET READY I 

840 POR n-1 TO 8 

260 POR f-1 TO 30: PRINT AT 18. 
f; INK 3a (AND#4) ; t(( f) ; INK 6; "A 
**: NEXT t: PRINT AT 18,31; ** ** 

860 BEEP .01,80: BEEP .01,81: B 
EEP .01,80: PAUSE 60 
870 LET aS-” M 

260 NEXT A 

890 DIM ta(2,3,8) 

300 LET tl(l,li-** 

310 LET ti(8,i)-"a. 

380 LET ti(1,8) •" 

330 LET ti(3,8) 

340 LET ti 11,3.) 

380 LET • x r " 

360 LET *C-0: LET par•14: LET t 
or-0: LET aa-80 
370 LET ra-l 

360 LET rat-INT (ANDa81: IP r#t 
-0 THEN LET re--l 
300 IP re--l THEN LET ret-8 
400 LET tUPa-lalNT CRND*3) 

410 POR f-0*27•(re t-8) TO 87-27 
a(rat-8) STEP raxtype 
480 PRINT AT 3,f; PAPER 6; INK 
7; BRIGHT l;t*(ret,type) 

430 LET par-para (INKER'S-"2**J - fX 
NKEY$-"1**J 

440 IP peril THEN LET per-l 
480 IP par>88 THEN LET per-86. 
460 PRINT AT 19,par; INK 4;~ 4 


tSftSKi 

ijSSS;? 











Doktormand 


■ En at dine patienter er ved 
at da af en livsfarlig inlektion. 
Hvis han kommer op pb 42 
grader i teber, dor han. Du 
mb redde ham. og den ene- 
ste metode er at udrydde 
hver eneste bakterie. Til dette 
formbl har du en minilaser, 
der kan styres med tasterne 


'1' og '2' og alfyres med 'O'. 
Undervejs skal du opsamle 
de gule, teberstillende piller 
samt de blinkende ekstra liv. 
Sb snart du har slbet infektio- 
nen ned, skal du trykke pb 
ENTER. Gem programmet pb 
bbnd med GOTO 600. □ 

Niels Larsen 


•ns PRINT #0! "HIGHSCORE “Shis 


1 REM *** 3 Niels Larsen *** 

10 LET dir=0: LET o=0: LET 1=3: LET xl=0: LET yl=0 
20 LET antaI=15: BRIGHT 1: INK 0: PAPER 7 
30 CLS 

40 LET A*=“": PRINT AT 21.01"LIV 
50 FOR t=l TO antal 
60 DO SUB 530 
70 NEXT t 
80 LET b=0 

90 FOR U=38 TO 42 STEP .01 
100 LET ul=INT C(u*l00)+.51/100 
110 PRINT AT 21.16i“teMO "iU15" “ 

120 LET a=C0DE INKEY* 

130 BEEP .005.-20: BEEP .005.0: BEEP .01.10: BEEP .002.40: BEEP .008.-30 

140 IF a=13 THEN GO TO 450 

150 IF a=48 THEN GO SUB 340 

160 IF RND <■ 005 THEN GO SUB 570 

170 IF RND<. 01 THEN GO SUB 560 

175 IF b THEN DO SUB 530: LET b=0 

180 IF RND<. 02 THEN IF CODE INKEY*(>13 THEN BEEP .1.30: LET b=l 
190 LET dir=dir+(a=49)-(a=50) 

200 IF dir=8 THEN LET dir=0 
210 IF dir=-l THEN LET dir=7 
220 LET ys=yl: LET xs=xl 

230 LET xl=xl+(dir=l)+(dlr=0)+Cdir=7)-(dir=3)-(dir=4)-(dir=5) 

240 LET yl=yl-Cdir=l)-(dir=2)-Cdir=3)+(dir>=5) 

250 LET xl=ABS xl: IF xl>31 THEN LET xl=31 
260 LET y1=ABS yl: IF yl>20 THEN LET yl=20 

270 LET q=ATTR (yl.xl): IF a)120 AND o<125 THEN LET 1=1-1: BEEP .7.-10: BEEP 1 
.4.-25: PRINT AT 21.7515“ ”: IF I<0 THEN GO TO 490 
280 IF 0=126 THEN LET u=u-. 5: BEEP .2.20: BEEP .1.35 

290 IF 0=253 THEN LET 1 = 1+1: PRINT AT 21,751: BEEP .1.0: BEEP .1,20: BEEP .1.4 

0 

300 PRINT AT yl.xl S"A" 

310 PRINT AT ys.xsS" “ 

320 NEXT U: LET a®="PATIENTEN DODE": GO TO 490 
330 REM SKUD 

340 LET xx=8*xl+3: LET yy=175-8*yl-4: IF dir=7 OR dir=3 THEN LET yy=yy+l 
350 PLOT xx. yy 

360 LET xr=< C255-XX) AND (dir=l OR dir=0 OR dir=7))-(xx AND (dir=3 OR dlr=4 OR 
d i r=5)) 

370 LET yr=(<175-yy) AND <dir=3 OR dir=2 OR dir=l))-C<yy-8) AND (dir)=5)) 

380 IF xr*yr=0 THEN GO TO 410 

390 IF ABS yr> ABS xr THEN LET yr=(SGN yr)*ABS xr 
400 LET xr=(SGN xr)*ABS yr 
410 BEEP .02,-20: BEEP .04.-10 
420 DRAW xr, yr 

4300 INK 7: PLOT xx.yy: DRAW xr.yr: INK 0 
440 RETURN 

450 FOR 0=22528 TO 23200: LET a=PEEK o: IF a<125 THEN IF o)120 THEN GO TO 490 
460 NEXT o 

470 LET ul=INT C(42-u)*250) 

480 CLS : PRINT “DU FIK “Sul 5” POINT": GO TO 500 

490 LET ul=0: CLS : PRINT A*: PRINT "DU SLOG IKKE INFEKTIONEN NED - INGEN SCOR 
E" 

500 IF ul)=his THEN LET his=ul 

510 BEEP 2.-20: PRINT "NYT SPIL (J/N) “: PAUSE 0: IF INKEY*="n" OR INKEY*=”N" T 
HEN STOP 
520 GO TO 10 

530 INK INT (RND+4) + 1s LET y = INT (RND+21): LET x=INT CRND+32): IF SCREEN* (y. x) 
= "B" THEN GO TO 60 
540 PRINT AT y, xl"B" : INK 0 
550 RETURN 

560 INK 6: PRINT AT RND+19.RND+305"C“: INK 0: RETURN 

570 INK 5: PRINT FLASH 1SAT RND+19, RND+30S"D”: INK 0: RETURN 

580 DATA 153. 102, 90. 189. 189, 90, 102,153, 24. 27, 148, 252, 24. 62, 98. 195, 240, 252, 254. 2 
54, 127, 127, 63, 15, 56, 184, 144. 255, 25, 60, 36, 102 
590 RESTORE : LET his=0: FOR u=USR “a" TO USR “a"+31: READ x: POKE u,x: NEXT u: 
GO TO 10 

600 CLEAR : SAVE "DOCTORMAN" LINE 580 




















































































3D ball maze 



■ Du er efter- utallige anstren- 
gelser ndet (rem til (jendens 
vdbenstyringssystemer, der er 
gemt inde i en stor labyrint. 
For at kunne pacilicere deres 
alfyringsmekanismer md du 


tinde det rigtige sted i labyrin- 
ten. Dette sted er dog forskel- 
ligt fra dag til dag. sd det er 
umuligt at gcette pd torhdnd. 
hvor stedet lindes. 

Den eneste hjcelp er. at der 


pd stedet er en stor kugle. 
som udsender et signal, du 
har fdet opgivet bolgelceng- 
den pd. Et apparat i din taske 
kan sd oplyse dig om den di- 
rekte afstand hen til mdlet, 


enten ved hjcelp af et tal eller 
ved hjcelp at en tone, der sti- 
ger eller lalder. 

Md din mission blive vellyk- 
ket. □ 

Erik Christensen 


2 HinEt135000:POKE6J8, 10 :G=14 :DJf1B^C239J, 
A* C3,G,G3,C*CG,G3:A7=65:B8=67:BB=24 
2 C=1 :N=2:0=3:P=4 :Q=5:U=8 :U=0:B1=200:B2= 
16:A3=48:H4=10:B5=40:fl6=132 :G0T0118 
4 F0R1=2T0Z+PSTEPP : CURSE TB-* (1 3 , B^C 1 +C3, C 
:DRPWB^ C1 +N3, B-* - C 1 +01, C :NEXT :RETURN 
6 CURSETB* CZ3 j B*CZtC3 > C:F0RI=Z+NT0ZtUSTE 
PN:DRBU B^Cn,B^Cl+Cl,C:NEXT 
8 CURSET120, B*(Z + C3 +B*(ZtQ3/'N-CQ-U3*(Q-W 
3+C,C:FORl=lTO(Q-U3*CQ-U3 
10 C1RCLE1> C:NEXT:RETURN 
12 IFR=UTHENX=XX:Y=YY:RETURN 
14 1FR=CTHENX=YY:Y=G-XX:RETURM 
16 1FR=NTHENX=G-XX:Y=G-YY:RETURN 
18 IFR=0THENX=G-YY :Y=XX ^RETURN 
20 XX=1NTCRNDC1 3*G3:YY=1NTCRNDC1 3*G3 :RET 


URN 

22 U=SQRC CXX-X13*CXX-X13 +CYY-Y13*CYY-Y13 
3 :JFZl>fl7THENS0UND0,B9*U,N 
24 RETURN 

26 1FZ1<P8THENPR1NT:PR1NT"BFSTBNDEN 1 LI 
GE L1NIE ER "51NTCU*H4+0.53 J"HETER" 

28 RETURN 

30 HIRES:P0KE618,10 :G0SUB26 :D=U:E=81 
32 IFP^CR J X,Y3=NTHENC*CXX,YY3=CHR$C343:G 
0T078 

34 F0RS=YT0Y-0STEP-C:F=U:Z=D:G0SUB4 
36 FOR n=X-C TO X+C STEP N 
38 IF P^CR,f1,S3=CTHENZ=D+F :G0SUB4ELSEZ=D 
+F+U:G0SUB4 
40 F=F+P2:NEXT 


28 #0 





42 1FA* CR, Xj S-C3=C THEN2=D+A5 :G0SUB4:GOT 
048 

44 IFA* CR, X,S-CD=NTHENZ=E :G0SUB6 
46 D=D+A3:E=E+A4=NEXT 
48 IF S>Y-3.5 THEN52 
50 1FA*CR,X,Y-P;)OCTHEN2=A6:GOSUB4 
52 GET ASrIFASOCHRSCSIANDASOCHRSCBJAND 
AS<>" "THEN52 

54 IF04=CHR*C8UHENR=R-C:IFR<UTHENR=O 
56 IFAS=CHRSC9JTHENR=R+C:]FR>0THENR=U 
58 G0SUB12 

60 1FB$=CHR4C830RB*=CHRSC83 THEN30 
62 IFA*CR,X,Y-C3=CTHENSH00T :UA1T30 :PLAYU 
,U,U,U:PLAYP,U,U, U:G0SUB22 :G0T052 
64 T=T+C : Y=Y-C 
66 1FR=UTHENYY=YY-C 
68 1FR=CTHENXX=XX+C 
20 1FR=NTHENYY=YY+C 
72 IFR=0THENXX=XX-C 
74 IFC4CXX, YY3 <> '• + "THENCS CXX, YY3 = “« " 

76 G0SUB22:GOTO30 

78 TEXT:P0KE618,10:PPPER7:lhK0 

80 :PRINT:PRINT”DU NAAEDE HAALET EFTER " 

iT*A4 5"METER" :PLAYU,U,U,U :PING 

82 PRINT:PRINT"DU FUl,GTE DENNE RUTE Ct:S 

TART "JCHRS C34 3 i"sdAAL3•" 

84 FOR I=UTOG:PRINT:PRINTSPCCA43:F0RJ=UT 
0G :PR1NTCSCJ,1 3 J :NEXT:NEXT :FRINT 
86 F0R]=CT0G-C:F0RJ=CT0G-C 
88 IF ASCCC4CJ,J33>33 THEN C$C1,J)=" " 

90 NEXT sNEXT :PRINT =PI^INT 
92 PRINT"UIL DU PR0UE 1GEN? <J> <N>"J 
94 GET AS: IF AS<>"J"ANDAS<>"N"THEN92 
96 CLS : IF AS="N"THEN END 
98 XX=Xi:YY=Y1 

100 FORR=UTOO:GgSUB12:A^CR J X,Y3=U ; NEXT 
102 GOSUB20 : IFA-^CU, X^, YY J OUTHEN102 
104 X1=XX:Y1=YY 

106 FORR°UTOO:GOSUB12:A^(R,X,Y3=N =NEXT 
108 GOSUB20 :1FA-* C U, XX j YY3 OUTHEN108 
110 R=1NT CRNDC13*P3:G0SUB12:G0SUB22 
112 1FW>6THENCS CXX,YY3 = " + "ELSE 108 
114 IF 2]>A7 THENPLAYP,U,U,U 
116 PAPER0:1NK7 : T=0 :G0SUB22 :GOTO30 
118 TEXT:CLS:PR1NT :PRINT" "JCHRSC43 JCHRS 
C273J"J TREDIflENSlONAL LABYRINT" 

120 PR1NTCHRSC43=PR1NT:PR1NT" Erik Chris 
tensen> 7. nouember 1984" 

122 PRINT:PRINT :PRlNT"Du placeres tillae 
Id Igt I en 1abyr I pt " 

124 PRlNT"Du skal i det mindst mulige an 
tal " 

126 PRINT”beuaege IseT |inde det rum huor 
i " 

128 PRlNT"maalet ll99er. Dette placeres 
ogs aa" 

130 PRINT"ti Ifae Id igt. Frekvensen a| led 
et open " 

132 PRINT"stlger med (aldende direkte al 
stand" 

134 PRlNT”fra maalet. Alstanden Igennem 
laby-" 


136 PRINT"Tipten kan godt uaere meget la 
engere." 

138 PRINT:PRINT:PRlNT"Benyt mellemrumsta 
ngenten ( I I ge (rem3" 

140 PRlNT"og h og y curserpile til at " 
142 PR]NT"manoeyrere med. 

144 PRINT:PR1NT :PR1NTSPCC103"UENT 30 SEK 
UNDER" 

146 FOR 1=0 TO 239 :READ B*CI):NEXT 
148 DATA20,10,0,100,320,10,0,100,0,0,20, 
10 , 0 , 120 , 20 ,- 10 , 0 , 10 , 20,0 
150 DATA0,110,20,0,220, 10,19,-10,220,110 
,19,10,220,10,19,0,220, 110,19,0 
152 DATA20,10,200,0,20,110,200,0,60,30,0 
,60,180,30,0,60,20,10,40,20 
154 DATA20,110,40,-20,20,30,40,0,20,90,4 
0,0,180,30,40,-20,180,90,40,20 
156 DATA 180,30,40,0,180,90,40,0,60,30,12 
9,0,60,90,120,0,90,45,0,30 
158 DATA150,45,0,30,60,30,30,15,60,90,30 
,-15,60,45,30,0,60,75,30,0 
160 DATA 150,45,30,-15, 150,75,30,15,150,4 
5,30,0,150,75,30,0,90,45,60,0 
162 DATA150,75,-60,0,110,55,0,10,130,55, 
9,10,90,45,20,10.90,75,20,-10 
164 DATA90,55,20,0,90, 65, 20,0,130,55,20, 
-10,130,65,20,10,130,55,20,0 
166 DATA130,65,20,0,110,55,20,0,110,65,2 
3,0,110,55,20,10,130,55,-20,10 
168 DATA60,95,120,0,20, 10,-160,0,20,-10, 
90,80,60,0,10,5,-80,0, 10,-5 
170 DATA 110,67,20,0,10,5,-40,0,10,-5,119 
,63,2,0,1,1,-4,0,1,-1 

172 FOR I=0TOG:FORJ=0TOG:READA*:A* C0,J >II 
=A*:CSCJ,IJ=CHRSCA^t321:NEXT=NEXT 
174 FOR H=1 TO 3:L=H-1 

176 FOR 1=0 TO G:K=G-I:F0R J=0 TO G:A*CH 
,J,KJ=A*CL,I,J3 :NEXT:NEXT:NEXT:PING 
178 DATA1,1,1,1,1,1,1,1,1,1, 1, 1, 1 , 1, 1 
180 DATA1,0,0,0,0,1,0,0,0,0,1,0,0,0,1 
182 DATA1,1,0,1,0,0,1,0,1,0,1,0,1,0,1 
184 DATA1,0,0,1,0,1,1,0,1,1,0,0,1,0,1 
186 DATA 1,0,1,0,0,0,0,0,0,1,0,1,0,0,1 
188 DATA1,0,0,1,0,1,0,1,0,1,0,1,0,1,1 
190 DATA],1,0,1,0,0,1,0,0,0,0,1,0,0,1 
192 DATA1,0,0,0,1,1,0,1,0,1,0,1,1,0,1 
194 DATA1,0,1,0,0,0,0, 1,0,0,1,0,0,0,1 
196 DATA1,0,0,0,1,1,1,1,1,0,0,0,1,1,1 
198 DATA1.0,1,0,1,0,0,0, 1,0,1,0,0,0,1 
200 DATA],1,0,0,0,0,1,0,0,0,1,0,1,0,1 
202 DATA1,0,0,1,0,1,0,0,1,1,0,1, 1,0,1 
204 DATA1,0,1,0,0,0,1,0,0,0,0,0,0,0,1 
206 DATA 1,1,1,1,1,1,1,1,1,1,1, 1, 1, 1,1 
208 FORI=46344T046367:READJ:P0KEI,J =NEXT 
210 DATA63,63,63,63,63,63,63, 63 
212 DATA0,12,30,18,18,30, 12,0 
214 DATA0,0,0,12,12,0,0,0 
216 PRINTCHRSCllDj"0nsker du ledetone L, 
a (stand A', e l lerbegge B ?" :GETZS 
218 IFZS <>"L"AND2S <>"A"ANDZS<>"B"THEN216 
220 2]=ASCC2$1 :CLS :GOTO102 




The snake 



1 Q=-l 

2 GOTO 500 

5 SC=0 

6 N=0 

9 P=100 

10 PRINT"<CLR)" 

11 POKE 53231,0 

13 FOR T=1024 TO 1063:POKE T,160:NEXT 

14 FOR T=1063 TO 2023 STEP 40 
■'POKE T, 160:NEXT 

15 FOR T=2023 TO 1934 STEP-1 
:POKE T,160:NEXT 

16 FOR T=1934 TO 1024 STEP-40 
:POKE T,160'NEXT 

20 fil=1601:R2=1602:fl3=l603:R4=1604 

: R5= 1605:06=1606 •' R 7= 160? ■’ R8= 1603 
:R9=1609 

21 B1 = 1610 = B2=1611:B3=1612 : B4=1613 

: B5=1614:B6=1615:B7=1616 : B8=1617 
32 FOR T=1 TO 20 : X=INT(RND( 1 >*954)+41 
40 POKE 1024+X,160 
30 NEXT T 

51 POKE Rl,56:POKE R2,81=POKE R3,81 

: POKE R4,81 : POKE R5,81:POKE R6,81 
■POKE R7,81 

52 POKE R3,81 : POKE 89,81=POKE Bl,81 
:POKE B2,81=POKE B3,81=POKE B4,81 
•POKE B5,81 

53 POKE B6,31=POKE B7,81=POKE B3,32 
60 FOR T=1 TO 10 = X=INT(RND(1)#912>+41 
65 IF PEEK (1024+X>032 THEN X=INT(RN 

D(l)#912)+41■GOTO 65 
70 POKE 1024+X,102=POKE 55296+X,1 
80 NEXT T 

100 GET R$ =IF R$="J"THEN Q=-40 
110 IF R$=" "THEN Q=40 
120 IF R$="N"THEN 0=-l 
130 IF R$="M"THEN Q=1 
136 B8=B7 = B?=B6 •' B6=B5 = B5=B4 = B4=B3 
:B3=B2 = B2=B1:B1=R9 = R9=R3 = R8=R7 
:R7=R6 = R6=R5 

140 R5=R4 = R4=R3 : R3=R2 : R2=R1= fll=Rl+Q 

150 IF PEEK(R1)=160 THEN 300 

151 IF PEEK(fll)=81 THEN 300 

152 IF PEEK(fll)=102 THEN SC=SC+10 
■' N=N+1 '• P=P-5 = GOSUB 800 

154 IF N=10 THEN 200 

155 POKE 81,56=POKE R2,81=POKE B8,32 
157 FOR T=1 TO P=NEXT 

160 GOTO 100 

200 FOR T=1 TO 20:X=INT(RND<1)#959)+ 

40 

210 POKE 1024+X,160 

220 NEXT T 

221 FOR T=1 TO 10=POKE 54277,64 
:POKE 54276,17=POKE 54273,17 
:POKE 54272,3? 

222 POKE 54276,0=POKE 54277,0 
:POKE 54273,0 

223 FOR KL=1 TO 100=NEXT 

:POKE 54277,128=POKE 54276,17 
:POKE 54273,40=POKE 54272,43 
225 FOR KL=1 TO 100=NEXT:POKE 54276,0 
= POKE 54277,0 = POKE 54273,0 = NEXT T 
230 FOR T=1 TO 10=X=INT(RND(1)*912>+ 

41 

235 IF PEEK (1024+X,''032 THEN X=INT(R 
ND( 1 )*912)+41= GOTO 235 
240 POKE 1024+X,102=POKE 55296+X,1 
250 NEXT T 
260 N=0 
270 GOTO 155 
300 PRINT"(CLR)" 

305 PRINT"(CRSR NED,CRSR H0JRE3,GUL, 
SPRCE)DIN SCORE VRR "I SC 
310 PRINT"(CRSR NED2,CRSR H0JRE4, 

HVID,RVS ON,SPRCEJHIGH SCORE TRVL 


E" 

311 IF SC>H5 THEN PRINT"(CRSR NED, 
CRSR H0JRE3,SPRCE)SKRIV DIT NRVN " 
: GOTO 400 

312 PRINT"(CRSR NED2)";H1,RJ 

313 PRINT H2,BJ 

314 PRINT H3,C$ 

315 PRINT H4,D$ 

316 PRINT H5,E$ 

320 PRINT"(CRSR NED2,CRSR H0JRE3, 
GR0N,SPACE)ET SPIL TIL ? " 

330 GET T$ =IF T$="J"THEN POKE 53281,0 
= GOTO 1 

340 IF T$="N"THEN PRINT"(CLR)TAK FOR 
NU"= END 
350 GOTO 330 

400 IF SOH1 THEN H5=H4:H4=H3 = H3=H2 
:H2=H1= HI=SC = E$=D* = D*=C$ = C$=B$ 

:B$=A$ = GOTO 450 

410 IF SC>H2 THEN H5=H4:H4=H3=H3=H2 
:H2=SC = E$=D* = D*=C$ = C*=B$:INPUT B* 
:GOTO 312 

420 IF SC>H3 THEN H5=H4:H4=H3:H3=SC 
:E$=D*:D$=C$:INPUT C$=GOTO 312 
430 IF SC>H4 THEN H5=H4=H4=SC=E*=D* 

:INPUT D$ = GOTO 312 
440 H5=SC=INPUT E*=GOTO 312 
450 INPUT 8*:GOTO 312 
500 POKE 53280,14=POKE 53281,0 
:PRINT"(CLR,RVS ON, 

SPACE13)SL8NGEN 

II 

515 PRINT"(CRSR NED,CRSR H0JRE6, 

RVS ON,SP8CE4)INSTRUKTIONER 

; ii 

550 PRINT"(CRSR NED,CRSR H0JRE3)DU E 
R EN SLRNGE DER SNOR SIG RUNDT" 

560 PRINT"(CRSR NED,CRSR H0JRE3)Pflfl 
SKRERMEN. DU SKRL SPISE DISSE 8" 
570 PRINT"(CRSR NED,CRSR H0JRE3)FOR 
RT KOMME PAR EN NV BANE.HUSK RT" 

572 PRINT"(CRSR NED,CRSR H0JRE3)DU I 
KKE MRR SPISE DISSE (RVS ON,SPACE, 
RVS OFF). HVER " 

573 PRINT"(CRSR NED,CRSR H0JRE3)GRNG 
DU SPISER S BEVREGER DU DIG " 

575 PRINT"(CRSR NED,CRSR H0JRE3)HURT 
I GERE, OG BLIVER LRENGERE. 

(CRSR NED,SPACE)PRS PAR VREGGE 
N OG DIN HRLE!" 

599 PRINT"(CRSR NED,CRSR H0JRE3, 

CRSR NED2)TRST SPACE 

600 GET R$ =IF R$=" "THEN 640 
610 GOTO 600 

640 PRINT"(CLR,CRSR NED2, 

CRSR H0JRE3)DU ER = 3IMMIHM 
650 PRINT"(CRSR NED2,CRSR H0JRE3)SAA 
DRN STVRER DU = 

660 PRINT"(CRSR NED,CRSR H0JRE9)J" 

670 PRINT"(CRSR H0JRE9)I" 

675 PRINT"(CRSR H0JRE9)I" 

630 PRINT"(CRSR H0JRE6)N-M" 

685 PRINT"(CRSR H0JRE9)I" 

686 PRINT"(CRSR H0JRE9)I" 

688 PRINT"(CRSR H0JRE7>SPRCE " 

690 PRINT"(CRSR NED?,CRSR H0JRE3)THS 
T SPACE 

700 GET R$ : IF RJ=" "THEN POKE 53281,1 
= GOTO 5 
710 GOTO 700 
800 POKE 54296,15 
810 FOR T=1 TO 10=POKE 54277,64 
=POKE 54276,17=POKE 54273,17 
= POKE 54272,37 

815 FOR KL=1 TO 100=NEXT=POKE 54276,0 
:POKE 54277,0=POKE 54273,0'NEXT T 
820 RETURN 


■ Spillet »the snake* er et hur- 
tigt actionspil, der ogsd Ids til 
ABC 80 som kobespil. 

Dette program, der ikke iylder 
mere end 2,75 K, er helt pd 
toppen bdde hvad angdr ha- 
stighed og grafik. 

Spillet gdr ud pd. at du skal 
styre en slange (dig) pd en 
skcerm, hvor der er nogle mdl 
og mure, Stoder du ind i en 
mur dor du, og tor hver gang 
du rammer et mdl bliver du 
lcengere og hastigheden 
ages. Spillet er ellers selvtor- 
klarende, sd god torn®]else.□ 
Seiren Hansen 






























Special input 


■ Har du brug lor lineinput. 
der tillader brug al de ellers 
"ulovlige" coloner, komma- 
er etc. 

Med dette maskinkodepro- 
gram er alle dine sorger vcek 
- Programmet startes med 
SYS700, hvorelter du kan lave 
''lineinput'' - et eksempel: 
SYS700: INPUT A$ Her md bar¬ 
ges Smart ikke?D 

Thomas Ravn 


J 



50 REM *********************** 

GO : 

70 FOR T=70O TO 709:READ A SPOKE T,A 
80 CK=CK +A:NEXT T 
90 : 

100 IF CK< >1062 THEN PRINT-DATA FEJL 
!■:STOP 
1 10 : 

120 PRINT"< CLR)DATA OK!” 

130 PRINTtPRINT 

140 PRINT” SYS<700):INPUT A*” 

150 PRINT- -■ 

160 PRINT 

170 PRINT- t LINE-INPUT t* 

180 PRINT" < INPUT MED KOMMA)" 

190 PR I NT: PR I NT 
200 : 

210 DATA 169,34,141,119,2,169,1,133, 
198,96 


Print Prcecis 


■ Med dette lille smarte pro¬ 
gram kan du nu selv bestem- 
me, hvor pd skcermen du vil 
skrive. Det gores ved. at du 
blot indtaster: SYS850.1ini- 
enr,position:PRINT"tekst" □ 
John Bach Thygesen 



10 REM MASKINKODE ROUTINEN KAN LAEGG 
ES HVOR SOM HELST I HUKOMMELSEN 
20 SK =850:FOR A=SK TO SK + 12:READ 8 
SPOKE A,B:NEXT 

30 DATA 32,155,183,134,214,32,155, 
183,134,211,76,16,229 
40 REM ** DEMOSTRATION AF PROGRAMMET 
** 

45 REM ** FORST LINJENR. ****** 

****** DERNEST KOLLONENR.* 

**** 

50 PRINT CHR*< 147):SYS SK,3*4,15 

55 PRINT "ALT OK ." 

:FOR A =1 TO 2000:NEXT 
60 PRINT CHR*< 147):A*="COMMODORE 64 “ 
70 FOR A=24 TO 1 STEP-1:SYS SK,A,A-1 
SPRINT A* 

80 FOR B =1 TO 100:NEXT: KEXT 
:FOR D=1 TO 1500:NEXT 
90 PRINT CHR*< 147):FOR A=39 TO O STE 
P-1:SYS SK,12,A 

100 PRINT A*:FOR B=1 TO 150:NEXT:NEXT 
:FOR X=1 TO 1000:NEXT 
SPRINT CHRS* 147):RUN 
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■ Hvis du er den lykkelige 
ejer af en ENTERPRISE og den 
ulykkelige ejer af en plade- 
samling du ikke kan finde 
rundt i. kan dette program 
bruges. 


Programmet. der er menusty- 
ret og nemt at bruge. kan in- 
deholde op til 100 plader For 
hver plade kan du indtaste 
gruppen, navnet og specielle 
data om den pdgceldende 
plade. □ Sune Frost-Olsen 


wmtlHWWnf 


Mlllllllllllllllll 


IMlli 


e* c c 

-Or 




r, “ 




100 1 Sune Frost-Olsen 1985 

110 SET STATUS OFF 

120 LET Q-0 

130 DEF PLADELAGER 

140 TEXT 80 

150 DEF FTAST 

160 SET FKEY 1 • 1 "IcCHRS(13) 

120 SET FKEY 2 "2"t<CHR* ( 13) 

180 SET FKEY 3 "3"«<CHR* < 13) 

190 SET FKEY 4 " 4 “8.CHR* (13) 

200 SET FKEY 3 ' 3 ■ I.CHRS (13) 

210 SET FKEY 6 "6‘I.CHR* (13 > 

220 SET FKEY 7 "7"!<CHR* (13) 

230 END DEF 
240 CALL FTAST 
230 PING 
260 LET X=0 

270 STRING GRUPPES(1 TO 1001*40 

280 STRING TITELS11 TO 100)*40 

290 STRING DATA*(1 TO 100)*80 
300 STRING XSI1 TO 100)*40 
310 CLEAR SCREEN 

320 PRINT ■••••••• .... PLADELAGER 


330 PRINT AT 3,0:"Ny Plade 1 FI" 

340 PRINT AT 7,O:"S0gning 1 F2" 

350 PRINT AT 9,0:"Load Data : F3“ 

360 PRINT AT 11,0:"Save Data : F4 

370 PRINT AT 13,0:"Total Udprlntnlng : FS 

380 PRINT AT 15,0!"Pr-1nter : F6 

390 PRINT AT 17, 0: " A 1« abet 1 ser-1 ng : F7 

400 INPUT AT 19.201AS 

410 IF A*=■1" THEN GOTO 490 
420 IF A*="2" THEN GOTO 620 
430 IF A*= "3" THEN CALL HENT_DATA 
440 IF A*="4" THEN CALL GEM_DATA 


430 IF A*="5" THEN CALL TOTAL_UDPRINT 

460 IF A*="6" TKaN CALL PRINTER 

470 IF A*="7" THEN CALL ALFAB_2 

480 GOTO 400 

490 CLEAR SCREEN:SOUND 

300 PRINT " 

310 LET X*X*1 





















































































































































































































INPUT PROMPT "GRUPPE: *:GRUPPES(X) 

INPUT PROMPT -titel: *:TITELS(X> 

INPUT PROMPT "DATA: *:DATA*(X) 

PRINT 

PRINT 

INPUT PROMPT -ER DISSE DATA OK <J/N):*:OKS 
IF OK*="j" OR OK*=*J* THEN GOTO 610 
IF OK*=*n* OR OK*=*N* THEN GOTO 320 
GOTO 370 
GOTO 310 

CLEAR SCREEN:PING 

PRINT *S0g pA Gruppe : FI* 

PRINT 

PRINT *S0g P4 Titel : F2* 

PRINT 

INPUT AT 3, 16: A* 

IF A*=*l* THEN GOTO 710 
IF A*=*2* THEN GOTO 970 
GOTO 670 

CLEAR SCREEN:PING 

PRINT * S0GNING 

PRINT :PRINT 

INPUT PROMPT "Input Gruppen* NavnJ":GR* 

IF GR*=** THEN GOTO 310 
LET G-LENIGR*) 

FOR A=1 TO X 

LET GRU*-GRUPPE*(A> 

IF GRU*(1:G)-GR* THEN GOSUB S60 
NEXT A 

PRINT *end*:ping 
FOR Y*1 TO X 

LET X*(Y) “GRUPPE* fY) 

NEXT Y 

CALL UDPRINT 
CLEAR SCREEN:PING 
PRINT GRUPPE*(A) 

PRINT 

PRINT TITEL* t A) 

PRINT 

PRINT DAT A*(A) 

INPUT AT 12,0,PROMPT *SKAL DISSE DATA RETTES (J/nl ■ 
IF A*= * J * OR A*9 * J * THEN CALL RETTER 
PRINT AT 22,40:"TRYK FOR NSTE SIDE* 

IF INKEY*-** THEN 930 
RETURN 

CLEAR SCREEN:PING 

PRINT “ SOGNING 

PRINT :PRINT 

INPUT prompt "Input Titel:*:TI* 

IF TI*-** THEN GOTO 310 
LET G-LENITI*) 

FOR A-l TO X 

LET TIT*-TITEL*(A> 

IF TIT*(l:G)»TI* THEN OOSUB 860 
! IF TITEL* (A)-TI* THEN GOSUB 800 
NEXT A 
PRINT -END* 

FOR Y-l TO X 

LET X*(Y)—TITEL* tY) 

NEXT Y 
CALL UDPRINT 
WAIT 1 
GOTO 310 
DEF GEM_DATA 
SET STATUS ON 

PRINT AT 22,0:“SAVER DATA OM 10 SEC.* 

WAIT 10 

PRINT AT 22,0!" 

OPEN mo: *tape-i:file_data* access output 
print mo:x 

FOR Y-l TO X 

PRINT *10:GRUPPE*(Y) 

PRINT »10: TITEL* (Y) 

PRINT mO: DATA* (Y) 

NEXT Y 

close mo 
SET STATUS OFF 
END DEF 
DEF HENT_DATA 
SET STATUS ON 

open mo: *tape-i:file_data* access input 
input mo:x 

FOR Y—1 TO X 

INPUT mO:GRUPPES(Y) 

INPUT mO:TITEL*(Y) 

INPUT mO:DATA*(Y> 

NEXT Y 
CLOSE mo 
SET STATUS OFF 
END DEF 
DEF UDPRINT 

INPUT PROMPT * VIL DU SE ALLE GRUPPER I LAGERET (J , 
IF A*=*l* THEN *********„, 


********* ********■ 

1460 FOR Y—1 TO X 

1470 PRINT X*(Y) 

1430 NEXT Y 

1490 PRINT ********************************************* 

****************** 

1500 PRINT *TRYK FOR MENU- 

1310 IF INKEY*-** THEN 1310 

1320 ELSE 

1330 PRINT "OK.* 

1340 END IF 

1330 GOTO 310 

1360 END DEF 

1370 DEF RETTER 

1380 CLEAR SCREEN:PING 

1390 PRINT * RETTER DATA 

1600 PRINT AT 3,0:"Gruppe:* GRUPPE* t A1 
1610 PRINT AT 5,0:*T1tel:" TITEL*(A> 

1620 PRINT AT 7,0:"Data i* DATA* (A > 

1630 PRINT AT 10,0:* NYE DATA NYE DATA NYE DATA 
NYE DATA 

1640 INPUT AT 13,0,PROMPT 'Gruppe:■:GRUPP* 

1650 IF GRUPP*-*** THEN LET GRUPPE*(A)-GRUPPE*(A):GOTO 1670 

1660 LET GRUPPE*(A)-GRUPP* 

1670 INPUT AT 13,0,PROMPT *T1tel:*:TITE* 

1680 IF TITE*-*** THEN LET TITEL*<A)-TITEL*(A):GOTO 1700 

1690 LET TITEL*(A)-TITE* 

1700 INPUT AT 17,0,PROMPT ‘Data :*:DAT* 

1710 IF DAT*-*** THEN LET DATA*(A)-DATA*(A)iGOTO 1730 
1720 LET DATA*(A1-DAT* 

1730 INPUT AT 19,0,PROMPT *SKAL DISSE DATA RETTES (J/n) ":A* 

1740 IF A*-* J * OR A*-*J■ THEN CALL RETTER 

1730 END DEF 

1760 END DEF 

1770 DEF TOTAL_UDPRINT 

1780 CLEAR SCREEN 

1790 PRINT -Dette er en TOTAL UDPRINTNING:* 

1800 PRINT **************************************************** 

************** 


1910 FOR V-l TO X 

1820 PRINT GRUPPE*(V),TAB(401 I":*ITITEL*IV) 

1830 NEXT V 

1340 PRINT **************************************************** 
************** 

1830 PRINT * INFORMATION: DER ER *|X|" GRUPPER I LAGERET." 

1860 IF INKEY*-* * THEN GOTO 1860 
1870 GOTO 310 

1830 END DEF 

1890 CALL PLADELAGER 
1900 DEF PRINTER 
1910 PRINT #104:** 

1920 PRINT *104:"COMPUTER PLADELAGER* 

1930 FOR A-1 TO X 

1940 LET Q-0 

1930 LET GRUP»-GRUPPE«(A) 

1960 PRINT *104:GRUPPE*(A)1 

1970 DO 

1980 LET 0=0*1 

1990 PRINT *104:* *| 

2000 LET G-LEN(GRUP*)*0 

2010 LOOP UNTIL G-40 

2020 PRINT *104:(*: * 1TITEL*(A1 

2030 NEXT A 

2040 END DEF 

2030 DEF ALFAB_2 

2060 LET XX-X 

2070 LET XXX-X 

2080 DO UNTIL XX-1 

2090 FOR A-1 TO XX-1 

2100 IF ORD(GRUPPE*(All>ORD(GRUPPE*(A*11) THEN 

2110 LET FLYT*=GRUPPE*(A > 

2120 LET GRUPPE*(A1-GRUPPE*(A*11 

2130 LET GRUPPE*(A*1)-FLYTS 

2140 LET FLYT*—TITELS(A) 

2130 LET TITEL*(A>=TITEL*(A*1) 

2160 LET TITEL*(A*1)-FLYT* 

2170 LET FLYT*-DATA*(A) 

2180 LET DAT A*(A)-DATA*(A*1) 

2190 LET DATA®(A*1)—FLYT* 

2200 LET XXX—A 

2210 END IF 

2220 NEXT A 

2230 IF XX-XXX THEN EXIT DO 

. .... 2240 LET XX-XXX 

2230 LOOP i 

. 2260 END DEF M 


Evigheds- 

kalender 


COMMO 

DOfff 

64 



■ Programme! kan udskrive 
en kalender for en hvilken 
som heist mdned i et vilkdrligt 
dr pd en MPS802 printer, ikke 
MPS801, da styrekaraktereme 
er torskellige. Programmet lo¬ 
ver et A4-ark om til et kalen- 
derark, og tester ogsd for 
eventuelle skuddr.D 


10 INPUT"<CLR,CRSR NED3, 

SPACE2) SKRIV AARSTAL ";V1 
15 IHPIJT" < CRSR NED2 , SPACE2 ) SKR IV MAA 

hed <tal>";mi 

20 DIM MA$(12) : DIM AN(15) 

30 GOSUB 20000:OOSUB 21000 
50 OPEN 4,4 : IF Ml >2 THEN GOSUB 30000 
:GOTO 110 

100 F=365*Y1+1+31#<M1-1)+INT<<Y1-1>/ 
4>-INT<.75*<INT<Yl-lV100+l>> 

110 IJ=F-INT<F /?)*? 

210 PRINT#4,:PRINT#4,:PRINT#4, 

CHR*<14)CHR$<14 >" ";V1;MA$< M1)jV1 

215 FOR Dl=l TO AN<M1> 

220 PR I NT#4CHR$ < 14 ) " - 

. .- — - — - - 11 

230 IF U=7 THEN U=0 

240 PRINT#4, " DEN ";D1J 

II II 

250 LMJ+1 
260 NEXT D1 

300 FOR P=0 T0<66-AN<Ml)*2+2> 

310 PRINT#4, : NEXT P 
400 CLOSE 4:END 
20000 FOR 1=0 TO 7 


20010 READ IJ$<I> 

20020 NEXT I 

20030 DATA L0RDAG ,S0NDAG , MANDAG , 
TfftSBAG , ONSDAG , TQRSDAG,FREDAG , 
20040 RETURN 
21000 FOR J=1 TO 12 
21010 READ Mfl$<J) 

21020 NEXT J 

21030 DATA** JANIJAR **,** FEBRUAR **, 
*** MARTS **.*,*.** APRIL ***, 

**** MflJ **** 

21040 DATA*** JUNI ***,*** JULI ***, 
** AUGUST **,* SEPTEMBER *, 

** OKTOBER ** 

21050 DATA* NOVEMBER *,* DECEMBER * 
22000 FOR L=1 TO 12 : READ AN < L) : NEXT L 
22010 DATA 31,0,31,30,31,30,31,31,30, 
31,30,31 

22100 IF INT<V1X4)O<V1/4)THEN AN<2) 
=28:RETURN 

22110 AN<2)=23 : RETURN 
30000 F=365*V1 +1+31* < M1-1>-1NT <.4*M1 
+2.3) +1NT < V1/4)-1NT <.75* <INT < V1/1 
00)+l)) 

30010 RETURN 
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Black Jack 


Man kan vcere op til 5 spillere stiger 21, bliver esset eller es- 
samtidigt. men ved at cendre seme regnet lor 1 i stedet tor 
ved DIM() scetningen i linie 5 11. Da computeren er ban- 
kan man blive flere. kor. vinder den altid, ndr den 

Black Jack er et kortspil, hvor og spilleren har det samme 
det gcelder om at komme antal point, 
tcettest pa 21, men samtidigt Spillet starter med 100 kroner i 
skal man passe pd ikke at puljen. og den stiger med spil- 
overskride dette tal. Es gcelder lerens indsats, hvis han taber. 
tor 1 eller 11. Billedkort lor 10. Hvis computeren taber lceg- 
0vrige kort gcelder tor deres ger den 100 ind igen. Ndr he- 
"pdlydende". Hvis du trcek- le bunken er brugt, skrives 
ker et es eller flere, sdledes at slutresultatet. □ 
det samlede antal ojne over- Birger Larsen 


4 DIM C0I52): LEI V-Ol DIM B<52> 

5 DIM A*<5,10)! LET 6-0: DIM F<5>: LET E-0: Din Z(53> 

6 LET n-0: LET Ui-0: LET 1-0: Din SUO) 

7 DIH A(52) 

10 GENPAT 1,129,16,56,16,84,254,84,16,56 

20 GENPAT 1,130,16,56,124,254,254,238,84,16 

21 GENPAT 1,131,16,36,124,254,124,36,16,0 

25 GENPAT 1,132,88,238,254,254,124,56,16,00 

26 GENPAT 1,136,0,10,10,31,31,8,20,17: GENPAT 1,138,16,8,23,39,71,135,3.3: GENPA 
T 1,137,0,160,160,240,240,32,80,16: GENPAT 1,139,16,32,224,200,196,194,128,128 

27 GENPAT 1,140,0,4,7,7,4,8,8,11: GENPAT 1,141,0,128,128,128,128,192,64,64: GENP 
AT 1,142,8,12,19,32,80,136,4,3: GENPAT I,143,64,192,32,16,24,36,64,128 

28 GENPAT 1,135,204,204,50,50,204,204,50,50 

29 GENPAT 1,144,0,0,7,15,31,8,20,17: GENPAT 1,145,0,0,192,224,240,32,80,16: GEM> 
AT 1,146,16,8,23,33,65,129,129,129: GENPAT 0,35,16,32,224,8.4,2,1,1 

32 GENPAT 1,133,68,202,81,81,81,74,68,0 

34 GENPAT 1,134,16,16,16,16,16,16,16,16 

50 LET K-2l LET L-l 

60 VS 4 

00 COLOUR 4,1 

90 PAPER 1 

95 If* I 

100 COLOUR 0,15: CLS 
110 GOTO 5000 

1000 CSR K,L« IP A-10 THEN PRINT - “jOR** 133)J- “ ELSE PRINT * '|A { “ - 

1010 CSR K»L*1l IF A>3 THEN PRINT - -jCHP»<B'j‘ ’|CMtt*B>|' ' ELSE PRINT - 

1020 CSR K,L*2: IF A-2 OR A-3 OR A-0 OR A-10 ImEN PRINT * “ B'; ' * ELSE 

PRINT - 

1030 CSR K,L*3: IF A-9 OR A-10 Tt€N PRINT * -;ChRS<B>;- “;C»**<B.j‘ - ELSE PRI 
NT ■ 

1040 CSR K,L«4: IF A-l OR A-3 OR A-5 OR A-9 THEN PRINT * -jC**R<B»j* - ELSE 

IF A-6 OR A-7 OR A-0 THEN PRINT - -jCHPR«&i|- -jCHR»«B)| ELSE PRINT 
1050 CSR K,L*5: IF A-9 OR A-IO THEN PRINT * -;CHRR.B>; - *jC^» b>r ELSE PRI 
NT - 

1055 CSR k,L*6: IF A-2 OR A-3 OR A-0 OR A-7 OR A-10 THEN PRINT - -;C*RS<B>;- 

‘ ELSE PRINT - 

1060 CSR K,L*7: IF A>3 THEN PRINT - -;C»*S«B)|- |CHR*.B*;“ * ELSE PtlllT 

1070 CSR K,L*8t IF A-10 THEN PRINT ';CHPSU33)l “ “ ELSE PRINT - -;A;' - 

1080 RETURN 

2000 CSR K,L: PRINT "K“;CHRS«B>;CHR»< b> ;CHR».B >i “K“ 

2010 CSR K,L*I: PRINT - 

2020 CSR k,L*2: PRINT - “;CHP*tl36>|CHRS»137»;CHR».134.j- - 
2030 CSR K,L*3i PRINT - “jCHR»<138);CHPS>139•;CHPS.I34»;- • 

2040 CSR K,L*4: PRINT - “;CMRS. 135)|Ct**< 135•;(>♦»• 134- 
2050 CSR K,L*5: PRINT “ “|CHRS< 135) ;C»*»< 135 •;CHR». 134.; 

2060 CSR K,L*6: PRINT - “;CHP*<134»;- - 

2070 CSR K,L*7: PRINT " 

2000 CSR K,L«8: PRINT -K-;CHR*(8>|CHPS<b);tHP*»B>r»" 

2090 RETURN 

3000 CSR K,L: PRINT -Q-;CHR»(B);CHRS< B>;CMR»(B»; “0“ 

3010 CSR K,L*li PRINT - 

3020 CSR K,L*2t PRINT - “;CHRS»140)jCHRft141>;CHR*.t34»j- “ 

3030 CSR K,L*3: PRINT - “;CHR»i 142) ;CHRS< 143) i34> j * * 

3040 CSR K,L*4: PRINT " CHRS*135)jCMMt135);CHR*«134*;* - 
3050 CSR K,L*S: PRINT - -;CHRS(135>;CHP*«I33>|CMM>134);* * 

3070 CSR K,L*6: PRINT - ";CHR*<134);“ - 

3000 CSR K,L*7: PRINT - 

3090 CSR K,L*8: PRINT "Q";CHRS(B);CHR»iB);CHR*< B);"0" 

3100 RETURN 

4000 CSR K,L: PRINT “J”;CHR*<B>;CHR»iB>;CHP*i B"J“ 

4010 CSR K,L*1: PRINT ■ 


5069 LET CES-0 

5070 LET D-D* l 
5572 LET 6-0 

5073 LET m-0: LET n«J 
5075 CSR 0,0: PRINT 

5000 CSR 0,0: PRINT “Jag spillar -*d -jA»«D» 

5110 REM TPAE* ET kORT: 

5114 IF k>30 TtCN LET K-2 

5115 LET 6-6*1: REH ANT.tcOPT 

5120 LET Zl-Zl-1 

5121 IF Zl-C THEN FOR A-l TO 5: CSR 19,1: PRINT “Sidst* o*gang“: PAUSE 500: CSR 

19,1: PRINT - PAUSE 500: NEXT : LET U-l: GOSUB 7100 

5122 LET A-Z«Z1> 

5125 IF A 27 THEN COLOUR 1,1 ELSE COLOUR 1,8 

5126 IF A' 14 THEN LET B-129 ELSE IF A>13 AND A<27 THEN LET B-130 ELSE IF A. 2 
6 AND A 40 THEN LET B-131 ELSE IF A>39 THEN LET B-132 

5130 IF A 13 AND A<27 THEN LET A-A-13 ELSE IF A>26 AND A<40 THEN LET A-A-26 E 
LSE IF A 39 THEN LET A-A-39 

5140 IF All THEN GOSUB 1000 ELSE IF A-13 THEN GOSUB 2000 ELSE IF A-12 THEN 
GOSUB 3000 ELSE IF A-11 THEN GOSUB 4000 
5150 IF L-l THEN GOTO 8020 
bl70 IF A/10 THEN LET E-10 ELSE LET E-A 
5172 IF E-l THEN LET E-ll: LET ES-ESMO 

5174 IF F <D)*E-2l AND ES>1 THEN LET F(D)-F(D)-10: LET ES-ES IO 

5175 IF F(D>*E>21 AND ES>1 THEN GOTO 5174 

5177 IF F»D)*E<22 AND G-5 THEN LET F»D)-21: CSR 22,10: PRINT "FEM KORT": GOSUB 
10000: GOTO 5200 
5180 LET F'D>-F»D)♦£ 

5190 IF F (D) >21 THEN CSR 0,22: PRINT “ DU TRAK OVER “|A»»D)| M “: LET 

n-2: GOSUB 10000: LET F(D)-0: LET K-2: LET L-12: GOTO 5065 
5200 CSR 0,22: PRINT "Du har “jF<D>;“viI du hava tiara N/RET" 

5210 IF G 2 THEN GOSUB 9000 

5220 CSR 25,22l INPUT B»: IF LEFTS.BS,1>-“N" THEN GOSUB 10000: LET F<D>«0: GOTO 
8000 

5230 LET K-**6 

5240 GOTO 5110 

7000 REH BLANDER * ORT 

7002 FOR A-l TO 52: LET A«A»-0: NEXT A 

7005 CSR 0,10: PRINT - Jag blandar kort 

7007 FOR A-I TO 52 

7010 LET R-INT(RND>52*♦1 

7015 IF A«Pl-0 THEN LET A(R)-1: LET Z(R)-A ELSE GOTO 7010 

7020 NEXT A: LET Zl-53: RETURN 

7100 REH BLANDER PESTEN AF SUNKEN 

7110 CSR 0,10: PRINT “Jag blandar bunt an 

7130 FOR A-Zl-G TO 52 

7160 LET R-INT<RND»52>»1 

7165 FOR B-l TO Zl«G: IF R-Z«B» THEN LET Y-l: NEXT B: IF Y-l THEN LET Y-0: GOT 
0 7160 

7170 IF B<R)-0 THEN LET B«R)-I: LET CO(Ai-R ELSE GOTO 7160 
7180 fCXT A 

7190 FOR B-Zl+G TO 52: LET Z«B»-CO«B>: NEXT B: LET Zl-52: RETURN 

8000 REH CONPUTER TRfkkER KORT HER 

0010 LET L-l: LET K-2: LET n-0 

8012 LET G-0 

8015 GOTO 5110 

8020 REn FRA BUMEN 

8025 CSR 22,0: PRINT 

8026 IF A>10 THEN LET A-10 

0027 IF A-l Tt«N LET A-l It LET CES-CES*10 

8028 IF n*A>21 AND CES 1 THEN LET n-M-lO: LET CES-CES-10 


4020 CSR K,L*2: PRINT “ -jCHR»«144);CHP*.145);CHP»i134» S - - 


V 


4030 

4040 

4050 

4070 

4000 

4090 

4100 

5000 

5002 

5003 

5004 

5005 
5010 
5020 
5030 
5040 
5050 

5060 

5061 

5062 

5063 

5065 

5066 

5067 

5068 


CSR K,L*3: PRINT " “;CHR»(146);CHP4«35»jCHP»<134“ “ 
CSR K,L*4: PRINT “ “;CHR4< 135) ;CHR»i 135) ;CPR»'*I34 • j “ 


CSR K,L*5: PRINT 
CSR k,L*6: PRINT 
CSR K,L*7: PRINT 
CSR k,L*8: PRINT 
RETURN 
REM 

CSR 0,10: INPUT “Indtast ant a 
LET WO 

LET 6-0: LET M-0: LET D-0 
LET L-12: LET K-2: LET D-0 
CLS 

FOP A=1 TO C 

PRINT “Indtast navn paa spill* 
INPUT At(A) 

CLS 

NEXT A: GOSUB 7000 
LET P-100: LET MTX-0 
FOP A-l TO 10 

LET 1-0: LET S(A)-0: NEXT A 
LET ES-O: IF D-C AND U;0 THEN 
IF C=D THEN LET D=0 
PAUSE 2000 
CLS 


;CHR»(135);CHR»i135*;CHPt-134.;- - 
jCHR»(134);” “ 


; CHR4 (B); Ct^t 1 B 1 ; CHRS • B»; 




8029 IF H>21 AND CES 1 THEN GOTO 8028 

8030 LET M-M«A 

8035 IF H<22 AND G-5 THEN LET H-21: CSR 22,10: PRINT “FEM KORT": GOSUB 10000: I 
F U-l AND D-l-C THEN GOTO 5000 ELSE IF M<22 AND G-5 THEN LET L-12: LET K-2: G 
OTO 5065 

8040 CSR 22,0: PRINT “JEG HAR“;M: IF M>0 THEN LET K-K*6 

8050 IF H<MI THEN GOTQ 5110 ELSE GOSUB 10000: IF U-l AND D-l-C THEN GOTO 1100 
0 ELSE LET L-12: LET K-2: GOTO 5065 
9000 CSR 0,10 

9010 PRINT -Sats!" Dar ar";P;- i puljan";: INPUT I 
9020 LET I-ABS(I> 

9040 RETURN 

10000 LET M1=F«D) 

10001 IF M-0 Tt«N RETURN 

10002 IF Mx=Ml AND M<22 TtCN LET P=P*I: LET S<D)=S<D)-I: RETURN 

10003 IF H1>21 THEN LET P-Pals LET SCD>-S<D)-I: RETURN 

10004 IF M>21 AND ni<22 THEN LET P-P-I: LET S<D)-S<D)4l: IF P-0 THEN GOTO 1003 
0 ELSE RETURN 

10020 RETURN 

10030 LET P-100: LET MTX-MTX-100: PE TURN 
11000 LET MTX*MTX*P: PAUSE 10000: CLS 
11005 FOR A-l TO C 
11010 PRINT AS<A);“ har -;S<A> 

11020 NEXT A 

11030 PRINT “Jag har“;MTX 
11040 GOTO 5000 


y 
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MinolOGO 


LOGO programmer er blevet 
det helt store hit. sd her bringer 
vi en udgave til Amstrad. Vo- 
res program har danske fejl 
meldinger. Ndr du har indta- 
stet programmet, sd skal du 
bare skrive RUN, og det er pa- 
rat. 

Her er listen over instruktioner- 
ne.Bemcerk, at X betyder at 
ordren kan bruges i program¬ 
mer. at O betyder at ordren 
kun kan anvendes uden tor 
programmer, og at OX bety¬ 
der at en ordre bdde kan an¬ 
vendes i og uden tor et pro¬ 
gram. SPACE bruges som stop 
knap. 

O Videre. Programmer videre 
iet program. 

O Husk. Lave et nyt program. 
O List. Lister programmet. 

X Frem(tal). Flytter skildpad- 
dentrem. 

O Ny. Sletter programmet. 

O Run. Korer programmet. 

O Help. Giver liste over ordre. 
OX Rens. Sletter skcermen. 


X TILB(tal). Flytter skildpad- 
den. 

X Nord. Skildpadden vender 
sigmod nord. 

X Vest. Skildpadden scetter 
kursen mod vest. 

X. VDRE(tal). Skildpadden 
drejer til venstre. 

X HDRE(tal). Skildpadden drej¬ 
er til hojre. 

OX Hjem. Skildpadden gdr til 
startpos. og tegner hjem. 

X Star. Skildpadden gdr til 
startpos. og tegner ikke hjem. 
X Lytt. Skildpadden tegner ik¬ 
ke. 

X Tegn. Skildpadden tegner. 
X GOTO(tal). Gdr ti en linie. be- 
stemt at tal. 

X Hent. Henter et program pd 
bdnd. 

O pos. Giver skildpaddens X.Y 
ps. 

O. Fri. Resterende hukommel- 
se. 

O Gem. Gemmer et program 
pd bdnd. 

X Stop. Stopper programmet. 


X GENT(tal). Start pd lokke. 

X HERT. Slut pd lokke. 

X Vent(tal). Pause tunktion. 

O Ret. Retter en linie. 

X Slut. Slutter programmet. 

X Cirk. Laver en cirkel. Radius 
er bestemt at tal. 

X XPOS(tal), Scetter skildpad¬ 
den i X pos. 

X YPOS(tal). Scetter skildpad- 
deni Y pos. 

O Slet. Sletter en linie i pro¬ 
grammet. 

O Ind. Indscetter en linie i 
programmet. 

X Frem(g). Flytter skildpadden 
frme. bestemt at GENT(tal). 
XTILB(g). Flytter skildpadden 
tilbage, bestemt at GENT(tal). 
X HDRE(g). Drejer skildpadden 
til hojre. bestemt at GENT(tal). 
X VDRE(g). Drejer skildpad¬ 
den til venstre, bestemt at 
GENT(tal). 

X STEP(tal). Bestemmer hvor 
stort et skridt GENT(tal). 

Skal tage. □ 

Thomas Lykkeberg 







AMSTRAD LOGO, no. 547. 

10 REM COPERIGHT BY THOMAS LYKKEBERG 
20 REM 

30 REM AMLOQO 

40 REM 

50 REM SNOSQFT 

60 f=l:ph=i 
70 DEG 

SO INK 0,1:BORDER UINK i, 24:MODE 1 
90 PLOT 320,200,0:XX=XPOS:YY=YPOS:5S=0 
100 CLS 

110 Iin=lsDIM a*C151) 

120 CLS:PRI NT" fiMLOGO S BY THOMAS L 

Y KKEBE RD '*: P RI NT SPRINT" ' " 5 

FRE("">5" BYTES FREE PRINT:GOTO 240 
130 IF Iin=151 THEN Ii=1:Iin=Iin-1:PRINT 
" Hukomelse fy I dt";CHR*<7)sGOTO 240 
140 IF li=1 THEN PRINT " Hukomelse fyldt 
"?CHR$<7>sGOTO 240 
150 PRINT lin! 

160 LINE INPUT a*<I in) 

170 I in=l in + 1 

180 IF a$< I in-1)*"" THEN Iin=lin-2sGOTO 
240 

130 b*=LOWER$CLEFT*<'.a$, 4)> 

200 c*=MlD*(a$,6,3) 

210 a=VAL(c$) 

220 b=b+a 
230 GOTO 130 

240 IF Pk= 1 THEN PRINT" Ready"sLINE INPU 
T" " ‘ ppis aa$=LOWER*C pp*) ELSE LINE INPU 
T" " ! pp$:aa*=LOWER$(ep*) 

250 IF aa$="list" THEN GOSUB 430SGOTO 42 
0 

260 IF aa$="run" THEN GOSUB 1610:DEG:PL0 
T 320,200s )<K=XP0S:yy=YPCS:c=0:9=0:f = lsG0 
SUB 450sGOTO 420 

270 IF aa$="hU5K" THEN iin=lsGOTO 130 
280 IF aa* = "ret" THEN GOSUB 1240SG0T0 42 
0 

230 IF aa*-"POs" THEN PRINT" X-"!XPOS!"Y 
!YPOS:GOTO 420 

300 IF aa*="vidre" THEN Iin=lin+1sGOTO 1 
30 

310 IF aa$="rens" THEN CLS:GOTO 420 
320 IF aa*="gem" THEN GOSUB 1270:G0T0 42 
0 

330 IF aa$="hent" THEN GOSUB 1350:GOTO 4 

20 

340 IF aa$="help" THEN GOSUB 330:GOTO 42 

0 

350 IF aa$="f ri" THEN PRINT FREC““):G0T0 
420 

360 IF aa*="ir,d" THEN GOSUB 1550:G0T0 42 
0 

370 IF aa*="siet" THEN GOSUB 1500:G0T0 4 

20 

320 IF aa$="ny" THEN CLEfiR:DIM a*(151):G 
OTO 420 

330 IF aa*=“h«iem" THEN DRfiW 320 ,200sGOTO 
420 

400 IF THEN pk*OsGOTO 240 

410 PRINT"'FeJI"!CHR$(7) 

420 pk=1 sGOTO 240 

4 3Q-' IF a$ f 1) <> " " THEN FOR 11 = 1 TO lin'.IF 
InKEY* <> CHR* C 32) THEN PRINT li;UPPER*Ca 
*< H > > '-NEXT ELSE GOTO 240 
440 RETURN 
450 FOR M=1 TO I in 
460 b*=LOWER*CLEFT*Ca*CI I),4)) 

470 c*=t1ID*(a*( l I ), 6, 3) 

480 a=VAL(c*) 


430 IF MID$(a$(I I),5,2>="(g“ fiND b$="fre 
m" THEN c=kk.s GOTO 770 

500 IF MID$(a$(ll),5,2)="(g“ AND b*="tiI 
b" THEN c=-kksGOTO 770 

510 IF MID*Ca$C I l),5,2) = "(9" AND b*="hdr 

e" THEN g=g+kksGOTO 770 

520 IF MID$<a$(I I),5,2) = “( 9 " AND b*="vdr 

e" THEN g=g-kksGOTO 770 

530 IF b$="vdre" THEN 9=g-a:c=0:GOTO 770 

540 IF b$="step" THEN st=a:IF st=0 THEN 

PRINT" Uioviis step i"!I I!CHR$(7):GOTO 2 

40 ELSE GOTO 770 

550 IF b$="hdre" THEN g=9+a:c=0sGOTO 770 
560 IF bt="nord" THEN g=Osc=OsGOTO 770 
570 IF b*="xPOS" THEN xx=a sGOTO 770 
580 IF b$=" ypos" THEN yy=a sGOTO 770 
530 IF b$="vent" THEN FOR ss=l TO a*10:N 
EXTsGOTO 770 

600 IF b$="cirk" THEN ww=a:GOSUB 1490:G0 
TO 770 

610 IF b$="vest" THEN 9=270:c=0:GOTO 770 
620 IF b*="tilb" THEN c=a: 9 = 9 +ISO:GOTO 7 
70 

630 IF b*="9ent" THEN ii=VALCMID*(a*CIl) 
,6,3)>:P=I IsGOTO 770 

640 IF b*="hert" THEN p1 = IlsI I =ps kk=kk+l 
:GOSUB 1470:GOTO 770 

650 IF b*="list" THEN aa*="Iist":GOTO 25 

O 

660 IF b$="frem" THEN c=a:GOTO 770 
670 IF b*="stop" THEN PRINT " Stop I I in 
e"! I I:RETURN 

630 IF b$="slut" THEN RETURN 
630 IF b$="Iy ft" THEN f=0sGOTO 770 
700 IF b*="te9n" THEN f=lsGOTO 770 
710 IF bi="hj em" THEN DRAW 320,200:c=0:G 
OTO 770 

720 IF b$="star" THEN PLOT 320,200:GOTO 
770 

730 IF b*="rens" THEN CLSsGOTO 770 
740 IF b*="goto" THEN GOSUB 1530sil=a:GQ 
TO 460 

750 IF b*="" THEN 770 

760 PRINT" FeJl i Iine"?I I!CHR$C7):GOTO 
240 

770 PLOT xx, yy 
780 DEG 

790 DRAW xx+c*SIN(g),yy+c*C0S(g>,f:XX=XP 
OS:YY=YP0S 

300 IF INKEY*=CHR*(32> THEN PRINT " Stop 
i I ine"!I Isi i=0 s KK=0s p=0 : p 1=0:GOTO 820 
310 NEXT 
320 RETURN 
330 CLS 

340 PRINT"VIDRE" 

350 PRI NT"HUSK" 

360 PRINT"LIST" 

370 PRINT"FREM(XXX)" 

330 PRI NT"NY" 

890 PRINT"RUN" 

900 PRINT"HELP" 

310 PRINT"RENS" 

920 PRI NT“TILB(XXX)" 

930 PRINT"NORD" 

340 PR INT"VEST" 

950 PRINT"VDRE(XXX)" 

r / A nn T fcir II1 in r\r- / u u u % u 
_/UV I IM I* I lll/l\L«.A«A/ 

970 PRINT"HJEM" 

330 PRINT"STAR" 

990 PRINT"LYFT" 

1000 PRINT"TEGN" 

1010 PRINT"G0T0(XX) 
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1020 PRINT"HENT" 

1030 PRI NT"GEM" 

1040 PRINT"FRI" 

1050 PRINT"POS" 

1060 PRINT"STDP" 

1070 PRINT"GENT(XXX) 

1030 PRINT"HERT" 

1090 LOCATE 16,1:PRINT"VENTCXXX)" 

1100 LOCATE 16,2:PRINT"RET" 

1110 LOCATE 16,3:PRINT"SLUT" 

1120 LOCATE 16,4:PRINT"CIRK(XXX)“ 

1130 LOCATE 16,5:PRINT"XPOS(XXX)" 

1140 LOCATE 16,6: PRI NT" YPOS (XXXV 
1150 LOCATE 16,7:PRINT"SLET" 

1160 LOCATE 16,3:PRINT"IND" 

1170 LOCATE 16,9:PRINT"FREM(s)" 

1180 LOCATE 16, 10:PRINT"TILB(s >" 

1190 LOCATE 16, 11:PRINT"HDRE<s)" 

1200 LOCATE 16,12:PRINT"VDRE(s)" 

1210 LOCATE 16,13:PRINT"STEPCXXX)" 

1220 LOCATE 20,24:PRINT "(SPACE)" 

1230 IF INKEY* (> CHR* C32) THEN 1230 ELSE 
CLS:RETURN 

1240 LINE INPUT" Linie nr der skal rette 
s : " > n r*:nr=VAL(n r*):IF nr> l in THEN P 
RINT" Line findes ikke i " ? I I ; CHR* <7) : GOT 
0 240 

1250 LIME INPUT" Hvad skal der staa : ": 
at(nr) 

1260 RETURN 

1270 LINE INPUT" Hvad skal filer, hedde : 
"; n $ 

1280 OPENOUT n* 

1290 FOR a=1 TO 150 
1300 PRINT #9,a* (a):NEXT 
1310 CLOSEOUT 
1320 PEN 1 

1330 PRINT" Filer, er serot. " 

1340 RETURN 

1350 LINE INPUT" Hvad hedder filer. : "In 
* 

1360 b=l 
1370 OPENIN r.* 

1380 FOR b=l TO 150 
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1390 INPUT 4*9,a*<b} 

1400 NEXT 
1410 CLOSE IN 
1420 PEN 1 

1430 FOR b=l TO 50:IF a*(b)="" THEN Iin= 
b-1:GOTO 1450 
1440 NEXT 

1450 PRINTFiler, er hentet. " 

1460 RETURN 

1470 kk=kk+st:IF kk>=ii THEN ll=pl+l:ii= 
0:kk=0 :p!=0:p= 0:st=l:RETURN 
1430 RETURN 

1490 PLOT xx,yy+a,0:F0R kl=0 TO 360:IF I 

NKEY* <> CHR*(32) THEN DRAW xx+a*SINCkl),y 

y+a+COS(kI>,f:NEXT:RETURN ELSE PRINT " S 

■top i l i n i e"! I i n: GOTO 240 

1500 LINE INPUT" Linie der skal slettes 

: ";nr*snr=VAL(nr$):IF nr) I in THEN PRINT 

" Linie findes iKke,"5CHR*(7):GOTO 240 

1510 FOR tt=nr TO I in-1 

1520 a*(tt)=a*(tt+l):NEXT 

1530 iin=Iin—1 

1540 RETURN 

1550 LINE INPUT " Hvor skal den i nd efte 
r : " ;r.r*: nr=VALCnr*> :nr=nr + l: IF r.r)lin + 
1 THEN PRINT" Linie findes ikke."!CHR*<7 
> :GOTO 240 

1560 FOR iwn= I i n+1 TO nr + 1 STEP -1 

1570 a*(mm) =a*(mm-1) :NEXT 

1580 LINE INPUT" Hvad skal der staa : "! 

n$: a*(n‘r )=n$: I in= I i n+1: RETURN 

1590 IF a) I in THEN PRINT" Ukendt linie n 

ummer i";I I;CHR$C7):GOTO 240 

1600 IF INKEY* OCHR* (32) THEN RETURN ELS 

E PRINT" Stop i"5 I I:GOTO 240 

1610 FOR we=l TO tin 

1620 IF LEFT*(atCwe),4)="hert" THEN he=h 
e+1 

1630 IF LEFT*(a* C we),4)="sent" THEN se=s 
e+1 

1640 NEXT 

1650 IFji se=he THEN se=0: he=0: RETURN 

1660 IF 'se) he THEN PRINT" Mansler.de ’her 

V"*CHR$<7) :se=0:he=0:G0T0 240 

1670 IF 9e(he THEN PRINT" Unyttis(e) ’he 

rt’"iCHR*(7):se=0:he=0:GOTO 240 

1680 RETURN 
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Space mission 



0 TI $ = "000000" 

1 M-0 

2 PRINT"U" 

3 P0KE36878,15 

4 P0KE36367,32 

5 B=2 

6 P0KE36S79, 24 

7 P0KE36865, 50 

10 FOR I =01079: REfiDfl: POKE I +7552, fl: NEXT: P0KE36869 - 255 
20 DRTR0,126,102,102,102,102,126,0,0,56,24,24,24,24,24,0 
30 DflTflO,126,102,14,120,96,126,0,0,126,102,14,14,102,126,0 
40 BRTR8,96,108,108,126,12,12,0,0,126,96,126,6,102,126,0 
50 BRTR0,126,96,126,102,102,126,0,0,126,6,12,24,24,24,0 
60 DRTR0,126,102,60,102,102,126,0,0,126,102,102,126,6,126,0 
70 FOR I =0TG55 = F’ERDR: POKE 1+7168,8 ■' NEXT: P0KE36869,255 


■ Du befinder dig i den fjerde 
mcelevej, syv lysbr fra jorden, 
hvor den sataniske styrke fra 
den sorte galaxe har anbragt 
bomber i alle rumadministra- 
tionens 12 satelitter. 

Din opgave er derfor at ind- 
samle satelitterne inden 25 
sekunder, samtidig med at 
den sataniske styrke besky- 
der dig fra alle vinkler. 
Opgaven er yderst vanskelig, 
men ved klar tankegang og 
prcecision kan missionen lyk- 
kes. Du styrer med knapper- 
ne K, M, Z og X og kan lige 
proppes ned i en stadard 
VIC-20. Space mission kan ik- 
ke anbefales til folk med sva- 
ge nerver.D 


Finn Kjcei 






80 BRTR0,119,68,116,20,28,119,0,129,126,255,255,255,126,126,255,0,126,0,126,0,1 
6,0,126 

90 DRTR0,60,126,60,24,60,66,129,0,0,0,0,0,0,0,255 
100 DRTR215,255,207,254,223,247,127,254 
105 URTfl16,32,64,255,255,64,32,16 

110 FORI=0TO7:RERBfl:POKEI+7424/R:NEXT:P0KE36869,255 
120 BflTfl0,0,0,0,0,0,0,0 
125 R=7725 
128 GOSUB 10000 
130 IFTI#>"000025 '• THEN200O0 
135 PRINT"MS"SC 

140 IFPEEK(197)=33THENR=R-1:B=1:GOTO175 
150 IFPEEK<197)=26THENfl=fi+1:B=-l:GOTO175 
160 IFPEEK(197)=36THENfl=R+22:B=~22:GOTO175 
170 IFPEEK(197)=447 HENR=R-22:B=22 = GOTO175 
175 IFPEEK<R)=5THENR=R+B:B=-330- 

177 IFPEEK(fl)=3THENSC=SC+10 : M=M+1:P0KE36876,200:P0KE36876,0 
180 POKER,1=POKER+30720,0:1FPEEK<R+B)O5THENP0KER+B,32 
185 IFM>11THENM=0:GOTO30000 
190 X=INT(RNB(1 )* 100) +1 
200 PR I NT " S)", T I* 

210 IFX=1THENG=78?5:GOTO230 
215 IFX=2THENG=7941:GOTO230 
220 GOTO130 

230 POKEG+1,32:POKEG,6:POKEG+30720,0 
240 G=G-1 

250 IFPEEK(G)=1THEN40000 
260 IFPEEK(G)=5THENP0KEG+1,32:GOTO130 
270 GOT0230 

9999 GOTO 130 

10000 PRINT"EEEEEEEEEEEEEEEEEEEEEEE E"; 

10010 PRINT"E EEEEE EEEEE EEEEE EE EEEEEE EE EEE 
10020 PRINT"E E E E DE EE EE EE EE EE EE 

10030 PRINT"E EEE EEE EEE EEE EE E E EE EE EE EE 

10040 PRINT"E EEEEEEEEEEEEEEEEEE EE E E E EE"; 

10050 PRINT"E EEE EEEEEEEEEEEEEEEEEEEEEEEE"; 

10055 2=0 

10060 V=INT(RNB(1)*287)+1 

10070 V=V+7727 

10071 IFV>7856RNBVC7877THEN10060 

10072 IFV>7922RNBV<7943THEN10060 
10080 I FPEEK ( V )032THEN10060 
10090 POKEV,3:POKEV+30720,0:Z=Z+1 
10100 IFZ>11THENZ=0:GOTO11000 
10110 GOTO18060 
11000 RETURN 
20000 POKE36877.200 

20005 P0KE36864,14:P0KE36865,78:P0KE36864,10 = P0KE36865, 40:BE=BE+1 
20010 IFBE>100THEHPOKE36864,13 = P0KE36865,50 = P0KE36877,0 = BE=0:GOTO20O30 
20820 GOT020000 
20030 IFSOHITHENHI =SC 

20035 P0KE36869,240:PRINT"HTIBEN GIK , OG BOMBEN EXPLOBEREBE":0*8 = RESTORE 

20036 PR I NT "Mill FIK "SOM" :SC=0 

20037 PRINT"MS5HIOHS"HI"MM" 

20040 PRINT " HWV1L DU PROVE I GEN ( .J/N ) " : GOTO40010 
30080 P0KE36869,240 : PRINT"n BU FIK FRT I RULE SRTELITTERNE XMBONUS 

200MM” 

30010 PRINT"BU GRRR NU VIBERE TIL"Q+2"PLRNET"=Q=Q+1=SC=SC+200 
30020 FORI=1T02000:NEXT:RESTORE:GOTO0 
40000 I FSOH I THENH I =SC 

40005 P0KE36869,240:PRINT'TJDU BLEV RRMT !!! WVIL BU PROVE IGEN(J/N)" 

40006 PR I NT "mi FIK" SO MM 

40007 PR I NT "MM2H IGHS" HI " MM" 

40010 GETR$: IFR$= " "THEN40010 
40020 IFfi$="N"THENEHD 

40030 I Ffi$="J"THENRESTORE:Q=0:SC=0:GOTO0 
40040 GOT040010 
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Statusrapport 


■ Er du otte desorienteret ndr Med dette program fdr du alt 
du sidder ved computeren? du behover at vide, skrevet 
Kan du ikke alle peeks og po- ud pd skcermen. uden peek 
kes? Glemmer du otte de tor- og poke. Blot ved SYS40000. 
skellige adresser? Du fdr bl.a.; BASIC start, slut. 

Sit er programmet for dig lige variabler og device nr. □ 
her! Thomas Ravn 

60 i °sap- 1 

70 FOR T=40000 TO 40567: READ A 1*1 

: POKE T, A 

80 CK =CK + A : hCXT T ■ r .T 3 

90 : 

100 IF CK<>52799 THEN PRINT-DATA FEJ 
LI":ST0P 
1 10 : 

120 PRINT-DATA OK ! * 

130 PR INT * PR INT 

140 PRINT-SYS<40000) FOR AT FAA EN" 

150 PRINT-STATUS RAPPORT.* 

160 PRINT“< JSR *9C40 I MASKIN-KODE!>" 

170 END 
180 : 

200 DATA 76,237,157,234,234,234,234, 

234.234.234.147.14.8.13.32.32.32, 

32.32.32 

201 DATA 32,32,32,13,32,32,211,84,65, 
84,85,83,45,210,65,80,80,79,82,84, 
32,33 

202 DATA 13,13,13,13,32,32,194,65,83, 

73.67.45.83.84.65.82.84.32.58.32, 
0,165 

203 DATA 44,166,43,32,205,189,169, 
144,160,156,32,30,171,76,162,156, 

13.32.32 

204 DATA 194,65,83,73,67,45,83,76,85, 
84,32,32,58,32,0,165,175,166,174, 
32,205 

205 DATA 189,169,179,160,156,32,30, 
171,76,200,156,13,32,32,214,65,82, 

45.83.84 

206 DATA 65,82,84,32,32,32,1,1,1,58, 
32,0,165,46,166,45,32,205,189,169, 
217,160 

207 DATA 156,32,30,171,76,235,156,13, 
32,32,193,82,82,65,89,45,83,84,65, 

82.84 

208 DATA 32,58,32,0,165,48,166,47,32, 
205,189,169,252,160,156,32,30,171, 
76,14 

209 DATA 157,13,32,32,193,82,82,65, 
89,45,83,76,85,84,32,32,58,32,0, 

165,50,166 

210 DATA 49,32,205,189,169,32,160, 

157.32.30.171.76.50.157.234.13.32, 

32,194,65 
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211 DATA 83,73,67,45,76,73,78,74,69, 
32,58,32,0,165,58,166,57,32,205, 

189.169 

212 DATA 67,160,157,32,30,171,76,85, 
157,13,32,32,196,65,84,65,45,76, 
73,78,74 

213 DATA 69,32,32,58,32,0,165,64,166, 
63,32,205,189,169,102,160,157,32, 
30,171 

214 DATA 76,120,157,13,32,32,193,65, 

66.78.69.32.70.73.76.69.82.32.58, 
32,0,169 

215 DATA 0,166,152,32,205,189,76,148, 
157,13,32,32,196,69,86,73,67,69, 
32,78,82 

216 DATA 46,32,32,58,32,0,169,130, 
160,157,32,30,171,169,0,166,186, 
32,205,189 

217 DATA 76,183,157,13,32,32,195,85, 

82.83.79.82.32.70.65.82.86.69.58, 
32,0,169 

218 DATA 165,160,157,32,30,171,169,0, 
174,134,2,32,205,189,76,219,157, 

13.32.32 

219 DATA 216,45,210,69,71,73,83,84, 
69,82,32,32,58,32,0,169,201,160, 
157,32,30 

220 DATA 171,169,0,174,63,156,32,205, 
189,76,18,158,142,63,156,141,62, 
156,140 

221 DATA 61,156,169,74,160,156,32,30, 
171,76,127,156,13,32,32,217,45, 
210,69,71 

222 DATA 73,83,84,69,82,32,32,58,32, 
0,169,0,160,158,32,30,171,174,61, 

156.169 

223 DATA 0,32,205,189,76,54,158,13, 
32,32,193 ,67,67,85,77,85,76,65,84, 

79.82.32 

224 DATA 58,32,0,169,36,160,158,32, 
30,171,174,62,156,169,0,32,205, 
189,76,89 

225 DATA 158,13,32,32,201,78,84,69, 
82,82,85,80,84,32,32,32,58,0,169, 
72,160,158 

226 DATA 32,30,171,169,32,32,210,255, 
234,173,21,3,174,20,3,32,205,189, 
169,13 

227 DATA 32,210,255,32,210,255,96 
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jiftSS; 


skrcBk 


H0j 


Du er ham som skal redde 
Gurli, der har hajdeskraek. 
Gurli stdr pd en platform, men 
der er en elektrisk mur imel- 
lem jer, Heldigvis kommer der 
huller i muren og den skal du 
igennem. Du styrer med pile- 
tasterne, Jespei Larsen & 

Michael Hansen 


OPLYSN1NQ TIL COMMODORE UDUSTNINQERNI jl 

Ndr du **r 

Butydoi d*t 

Du trykkei 

(CUI) 

Screen clear 

SHIFT CLR /HOME 

(HOME) 

Home cursor 

CLP /HOME 

(CRSR NED) 

Cursor ned 

CRSR OP/Nf D 

(CRSR OP) 

Cursor op 

SHIFT CRSR OP/NED 

(CRSR H0JRE) 

Cursor hene 

CRSR FJ0JRE/VENSTRE 

(CRSR VENSTRE) 

Cursor venstre 

SHIFT C.'RSR H0IRE/VFN 

(DEL) 

Dololo lilbago 

INST/DEL 

(INST) 

Insorl 

SHIFT INST/DEI 

(RETURN) 

Relurn 

SHIFT RETURN 

i (SPACE) 

Space 

SPACE 

J (RVSON) 

Roverse on 

CTRL 9 

$ (RVSOFF) 

Reverse o»l 

CTRLO 

(SORT) 

Sort 

CTRL 1 

(HVID) 

Hvid 

CTRL 2 

(ROD) 

Rod 

CTRL 3 

(CYAN) 

Cyan 

CTRL 4 

(ULLA) 

Lilia 

CTRL 5 

(GR0N) 

Gron 

CTRL 6 

(BI.AA) 

Bid 

CTRL 7 

(GUL) 

Gul 

CTRL 8 

(ORANGE) 

Orange 

COMMODORE 1 

(BRUN) 

Biun 

COMMODORE 2 

(L R0D) 

Lysered 

COMMODORE 3 

(GRAAI) 

Grd 1 

COMMODORE 4 (, 

(GRAA2) 

Gid 2) 

COMMODORE 2 

(L GR0N) 

Lysogren 

COMMODORE 6 K 

(L BLAA) 

Lysebld 

COMMODORE 7 

(GRAA3) 

Gtd 3 

COMMODORE 8 i 

(FI) 

Punklionslasl 1 

PI 

(F2) 

Punklionslasl 2 

F2 

(F3) 

F\inklions«ast 3 

F3 

(F4) 

Punklionslasl 4 

F4 

(F5) 

Punklionslasl 5 

PS 

(F6) 

Funklionstasi 6 

F6 

<F7> 

Punklionslasl 7 

F7 

(F«) 

Punklionslasl 8 

F8 


1 SO TO 300 

2 PAPER 6. BORDER 6; CLS : IN 

3 print •• ■ ■ ■ ■ ■■■ MBI 

4 PRINT ~ m ■■ ■■ ■■ ■ 

s print ■ ■ ■ ■ ■ 

6 PRINT ■ ■ ■ ■ ■ ■■§ ■ 

7 PRINT - ■ ■ MM ■■ HE 

8 INK 0 

IB print "ar otiper Linen " 

IS print "& NiChie ( Hansen IBB 

5 " 

20 PRINT RT 1,2@; "JL"; RT 2.20; “ 
W -;rt 3,26; -burli- 

25 PRINT RT 0,22;"W;HT 1,81,'" 
HUGO" _ 

28 PRINT RT 3.20; ;RT t,28i 

MUR" 

30 PRINT ; PRINT ; PRINT ; PRI 
NT ; PRINT ; PRINT ; PRINT "DU 6 
r Hugo 501 ml redde Gurli uer 
*>ar hBjhediium. ouri 

i itiir pea en plitfon Men der 
er en e lextruK mur imeilem ,er. 

Htld 

igvis minr u«r nuiier i lure 
n og du mi du igen nem." 

32 PRINT : PRINT "DU STYRER PR 
H PILENE!" 

4.8 IF INKEY* THEN BO TO 50 

4-0 BO TO 4-0 

SO INK 0.- PRPER 7: BORDER 6. C 


K FOK S=2 iJ 10. PRINT RT S,0 
• ;rt s «3B; -rTi"; ht a. 20 ;"CD": 

NEXT a 

65 PRINT HT 6.22; THTH m- 

. ..gS F nEX® = f r ° ,J ' FRINT RT »< 22 

70 PR IN I RT C-.2U; INK 2; RT 

7,23; "W"; PRIN1 HI 4-,as; FLASH 
2;"HELP" 

SO LET X=S. i_E i’ y=ll; LET q =0 
S3 LET t =0 
100 LET a» -INKEY* 

2B1 LET t=t+l 

165 print ri y. x: ••sp¬ 
ue IF as="C" THEN PRINT RT y,X 
; LET X=XF1. II SCREEN* Cy,X 

> < >" " THEN BO 1O 200 

ns print rt y.x ;••»•• 

120 if a*="3” then print rt y,x 

; LET X =X -1. I! SCREEN* ly,X 

JO" THEN BO 1 O 200 

i 2 S print rt y 


130 IF B a =••/•• IULH PRINT RT y,x 
; let y=y-a. 11 screen* cy,x 

J •• THEN BO 1 O 260 

135 PRINT R7 y 

14.0 IF B*="6” THEN PRINT RT y,X 
; let y-y*i. n screen* iy,x 

) < > ■• •• THEN BO 1 U 260 

14-s print rt y ,:<;••»" 

160 print rt g,ae;" ";ht q+i,H 
a;- ";ht q+a. 20 :" ";rt g+ 3 , 20 ; 

" ••;rt g+ 3 , 20 ;" ••;rt q- 1 , 20 ; "C 

LET q-qtl 

170 IF q =1B THEN PRINT RT 9-1.2 

S ; "OD"; RT g.ag: "171": rt g+1,20.: ••£! 
••; rt q+a . 20 ; rTi". let q = i 

1S0 IF X=20 OK X 21 THEN IF SCR 
EE N* ty.X.'O" " I IILN BO TO 200 
165 IF y -7 HAL' 2/ THEN bo to 
4.00 

ISO BO TO 166 

260 PRINT FLRSII 1: RT 4,2S;"SUK! 

PRINT RT >J , X ; RT y,x; OVER 

i; 

210 FOR »=0 TO 26. NEXT B 
220 FOR a =0 -TO 30 

230 PLOT OVER 1:RND«8+X*8,167-C 
y*6)+RNDI0 
240 NEXT a 

ase print rt y.x;" for a=o t 
O 21: PRINT RT a,o; OVER 1; PRPE 
R 0; INK 4; BRIWHT XI" 

". NEXT B 

260 FOR a =0 TO 350; NEXT a 
265 PRPER 7. BORDER 7: CLS 
270 PRINT RT 11,4; "TRST EN TRST 
FOR NYT SPILI” 

280 IF INKEY* <>•••• THEN BO TO 28 

0 

2S0 IF INKEY* =”" THEN BO TO 290 
29S BO TO 2 

300 FOR S=1 TO 4: RERD d* 

310 FOR t=0 TO 7; RERD a 
320 POKE USH 4E+I.B; NEXT t; NE 
XT S 

330 DR7R ••8”,6.12L.,219,25S,19S, 
255.36.102 

340 OftTfl ” h•• ,8SS , 129,189,189 , X8 
9,129,129,255 

350 DRTR "C".0.66.60,60,24,255, 
139.139 

360 DRTR "d",169,189,126,136,25 
5,255,36,102 
370 GO TO 2 

400 BEEP .5,8: BEEP .5,8: BEEP 
.5,9 

410 PRINT RT 6,27; "W; RT 7,27;" 
■•; HT 4,25; FLRSII X; INK 2; BRIG 
HT l;"SMRK" 

420 PRINT RT 6.2; "DU ROB hen ti 
1";rt 7,2; "Bur n med hejhedi''; rt 
3,2;-sf.rsef. pss ud -;t;““;BT 9 
, 2 ;"og redede hind" ";bt 10 , 2 ;"f 
r* at raue ne-j.-;H> 18,2; "og ho 
id SBB op";ri 19 , 2 ; "med del Ryss 
e r j ! •• 

430 PRINT *i;-insr EN TRST FOR 
HYT SPIL!I!” 

440 IF INKEY*<>"" THEN BO TO 2 
450 BO TO 440 




























Marsdrive 



DAL HOSE 


3 J 


■ Den amerikanske rumfarts 
organisation NASA, har op- 
daget sd store rubin- 
torekomster pd Mars, at det 
pludselig kan betale sig at 
sende ekspeditioner derop. 
Du er kommet med pd den 
forste tur og er nu i gang med 
rubinindsamlingen. 

Du har Idet stillet en special- 
konstrueret Marsscooter til rd- 
dighed. Ndr du finder en ru- 
bin, skat du hoppe pd den for 
at fd den til at gd los. Ndr du 
har samlet 5 rubiner, er der 
penge nok til en ny rundtur i 
terrcenet. Det er dog ikke den 
rene sondagstur, for som be- 
kendt vcelter meteoreme ned 
fra himlen pd et sted som 
Mars. Dem skal du selvfolge- 
ligundgd. 

Du styrer med piletasterne og 
skyder med 'O'. □ 

Lars Jensen 


1 REM LARS JENSEN 
UNI 1983 

3 LET NO-NOT PH LET Nl-PI/PH LET N2-VAL "2" > LET N3-VAL -J-l LET N4-VAL "4" 
I LET N3-VAL -3- 

10 BORDER NO* PAPER N0» IH< N3* BRIGHT N11 CLS 

IS LET a*-CHR* 16+CHR* NA ♦ " DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD■ 

20 DIM k*(N3.20)« DIH k(N3)i GO TO 7060 

30 LET ba-Nl 

A© LET ac-NO* LET II-N3 

11© LET x-20* LET y-13* LET t-Nl * LET »-Nl« LET »*-"ABCEFGKLMN" 

113 LET f-NO* LET fu-N© 

190 GO SUB 8000 

199 PRINT AT x.yl»*(N2)tAT x-Nl, yl «*<N1> 

500 GO SUB 1000 

600 IF f-NO AND RND> . 5 THEN LET f^l * GO SUB 620© 

700 POKE 32003. x-Nl * POKE 32004.y-Nl* LET a-USR 31050 
999 GO TO 200 
1001 LET xx-x* LET yy-y 

101© LET i*-INKEY** IF I#--" THEN GO TO 1100 
102© IF 1*0-0- THEN GO TO 110© 

1030 IF a-Nl THEN FOR a-y-Nl TO 0 STEP -N1 

1032 IF »-N4 THEN FOR a-y+Nl TO 31 

1033 LET at-ATTR <x-Nl.a)* IF at-68 OR at-70 OR at-66 THEN GO TO 1100 

1034 PRINT OVER Nil IN< 7l PAPER 8lAT x-Nl.al"i- 

1033 IF at-67 THEN BEEP .Ol.lOi PRINT AT x-Nl.al" •« GO SUB 9600* LET *c-sc+10* 
GO SUB 9300* GO TO 1100 

1037 PRINT OVER Nil DK N5lAT x-Nl.«l"i- 

1038 BEEP .005. 1© 

1040 NEXT a 

1130 IF 1*0-8" THEN GO TO 120© 

1160 LET at-ATTR (x. y*Nl)+ATTR Cx-Nl.y+Nl>i IF at 0 138 THEN GO TO 1200 
1170 LET s-NA* LET y-y^Nl * IF y-31 THEN LET y-Nl 
1200 IF 1*0-3- THEN GO TO 1230 

1210 LET at-ATTR (x. y-Nl)♦ATTR (x-Nl.y-Nl)i IF at 0 138 THEN GO TO 1230 
1220 LET **N1: LET y-y-Nl* IF y-NO THEN LET y-30 

1250 IF 1*0-6" 1*0-7" THEN LET x-x+<ATTR <x+Nl.y)<>68 AND ATTR <x+Nl.y>0 

70) 

1260 IF l*--7" THEN LET x-x-(ATTR (x-N2.y)<>68 AND x>Nl) 

1800 LET at-ATTR (x* y)+ATTR (x-Nl,y) 

1810 IF at-136 THEN GO TO 7000 
1820 IF at 0 133 THEN GO TO 183© 

1830 LET ac-ac+100* GO SUB 9500* LET f-NO* BEEP .1.10* BEEP .1.20* BEEP .1.10* L 
ET fu-fu+Nl* IF fu—N5 THEN GO TO 6000 
1990 PRINT AT xx.yyl" "IAT xx-Nl.yyl* ■ 

1992 LET t-Nl*<ATTR (x+Nl. y) <> 6e> 

1998 PRINT AT x. yts*(s*t>lAT x-Nl.yls*(s> 

1999 RETURN 
6010 LET ba-ba+Nl 

6020 FOR A—19 TO XX-N1 STEP -N1 * PRINT AT A. 171 INK 71-0"* BEEP .005.10* NEXT A* 
FOR A-17 TO YY STEP N1-N2*<YY<17) * BEEP .005. 10* PRINT AT XX-Nl.Al"0"i NEXT A 











6021 PRINT AT XX.YYl" " 

6025 FOR A-YY TO 17 STEP N1-N2*(YY) 17) * BEEP .005, 10: PRINT AT XX-Nl.Al" "* NEXT 
A 

6030 FOR A-XX-N1 TO 19: PRINT AT A, 17* INK 71" ": BEEP .005,10: NEXT A 
6040 PRINT AT 19,17lS*<Nl) 

6050 LET b*="HAIJJJ": FOR a«13 TO -N3 STEP -Nl: FOR b-Nl TO M3 
6060 IF a+b> NO THEN PRINT AT 20, a+bl INK 6lb*<b+N3)IAT 19,a+blb*(b) 

6065 BEEP .001,RND*5© 

6070 NEXT b: PRINT AT 20,<a+N4 AND a<28)1" "IAT 19,<a*N4 AND a<28)l" •* NEXT a 

6199 GO TO 100 

6210 LET a-INT (RND*30)+N1 

6220 FOR b-NO TO 20: PRINT AT b, a I INK N2l"0": IF ATTR <b*Nl.a>-68 THEN RETURN 
6230 BEEP .ei.RND+SOi PRINT AT b. al H ": NEXT bi RETURN 
7010 LET Il-ll-Nl 

7020 RESTORE 7030: FOR «-Nl TO 20« READ bi BEEP .l.b: hCXT a 

7030 DATA NO. NO, NO. N2. M4. N4. N4, N2. N2. N2. N4, NO. NO. NO. NO. 10. 20. 30. 40, 5© 

7040 IF Ii> NO THEN GO TO 100 

7050 FOR a-Ni TO N5: IF me) a THEN INPUT "NAME PLEASE:"; LINE n»: FOR b«N5 TO a* 
Nl STEP -Nil LET k*<b>-k*(b-Nl): LET k<b)-k<b-Nl)« NEXT b: LET k*<a)-n*: LET k(a 
)«*c: GO TO 7060 
7055 NEXT a 

7060 CLS I PRINT INK 7lAT N2.N5I FLASH Nll-TODAY's HALL OF FAME- 
7065 PRINT PAPER Nil INK 7lAT NO. 101 "MARSDRIVE" 

7070 FOR e-Nl TO N3: PRINT INK 7: AT N3+a. N2l k*(a) I ■ "Ikta): NEXT a 
7080 PRINT AT 20, N51 "PRESS A KEY TO PLAY- 

7090 PRINT INVERSE Nl :AT 21. NO!" 9 JUNI 1985 by LARS JENSEN - 
7100 PRINT AT 17.101 INK 6l"HAI"lAT 18. 10t"JJJ” 

7110 PRINT AT 19.NO;A*IAT 10.N0IA* 

7120 PRINT AT 18.20l"B"«AT 17.20l"A"lAT l4.N2l"E"lAT 13.N2l"G" 

7130 PRINT INK N3lAT 12.10l"K-|AT 13.2©l"L"lAT 1A, 151 "M" lAT 13.28l"N" 

7140 PRINT AT 18.26; IM< N2l"0" 

7200 PAUSE Nl: PAUSE NO 

7300 RESTORE 731©: FOR A-Nl TO 16: READ B: BEEP .!.*»« »CXT A 
7310 DATA 14. 14. 14. 13. 16. 17. 14. 14, 14. 20. 30. 40. 50. 40. 30. 20 
7999 GO TO 3© 

8010 CLS 

8015 LET a-ba 

8016 IF «>N4 THEN LET a-a-NA: GO TO 8016 
8018 LET U*-"KLMN": POKE 31162. CODE U*<A) 

8020 PRINT AT 21.NO la* 

8030 IF a-Nl THEN PRINT AT N3.N2la*< TO 10)IAT N3.161a*( TO 8)1AT 7.201«*< TO 8 
)IAT 14.8lo*( TO 10)1 INK 5l* "!«•< TO 8)lAT 17.14la*< TO 8) 

8040 IF a-N2 THEN PRINT AT 7. 10la*C TO 6)lAT ll.N4la*( TO 6)lAT 12. I5ta*( TO 14 
): FOR a-N2 TO 26 STEP N4: PRINT AT M3.ala*< TO N4)i FCXT a 

8050 IF a-N3 THEN PRINT AT 15.N2la*< TO 30): FOR «-N4 TO 16 STEP NAi PRINT AT N 
3, «la*( TO N4) l NEXT «: FOR «-N2 TO 18 STEP N4i PRINT AT U.al«*< TO N4)l NEXT o 
8060 IF a-N4 THEN PRINT AT N3.20la*( TO 12) I FOR o-N3 TO 17 STEP N4i PRINT AT a 
.19-ala*( TO 6): NEXT a 

8500 LET b*-"HAIJJJ"i FOR a-30 TO 15 STEP -Nl* FOR b-Nl TO N3 
8510 IF a+b <32 THEN PRINT AT 20. a«-bl INK 61 b*<b*N3> I AT 19.a*blb*(b> 

8515 BEEP . 001. RND>*5© . 

8320 NEXT bi PRINT AT 20. <m«NA AND a<28)l^ "IAT 19. <a^N4 AND «<28)1" "l NEXT a 
8530 PAUSE 20i PRINT AT 19.171" "« PAUSE 10 

8600 LET m*-CHR* 16+CHR* 7*CHR* 17+CHR* N2+CHR* 19+CHR* Nl♦"£££££££££" 

8610 PRINT *0;AT 0.01 INK 71 PAPER N2l BRIOHT NlI• 

■lAT 0. 01-SCORE :000000».EvEL: 000®-;•»< TO I I♦NS); 

8620 PRINT UNOiAT N0.22-LEN STR* bal INK 7l BRIGHT Nil PAPER N2lba 

8800 POKE 32000.ba: LET a-USR 31000 

8999 RETURN 

9001 NEXT a: STOP 

9500 PRINT UN© I AT NO. 12-LEN STR* me I INK 8l PAPER 81 BRIGHT 8lmd RETURN 

9600 FOR b-32010 TO 32007*N3*PEEK 32001 STEP N3 

9603 IF x-Nl-PEEK <b*Ml) AND a-PEEK (b+N2) THEN POKE b. NO 

9610 NEXT bi RETURN 

9997 STOP 

9998 CLEAR 30999: LOAD "“CODE * LOAD “"CODE : GO TO 1 

9999 SAVE "MARSDRIVE" LINE 9998: SAVE "mc-CODE 31000.313: SAVE "uda’CODE USR "a" 
,120: VERIFY ""I VERIFY ""CODE : VERIFY "-CODE 


100 DATA "3A007DCB3FCB3FC60132017D47210A7D36O0110300ED5A10F73A007DFE043804", 249 
4 

110 DATA "D60418F832027DC9000000000000000000003A© 17D47210A7DC5E37EFE01281D".216 

7 

120 DATA " 3A785CCB472819CB4F281536013A785CFE143804CB3F18F82377233600C38279- • 283 

8 

130 DATA "110300E119C17610DOC9E1E5234E23463E201645CD2D7A3A027DFE01CAC679FE".343 
O 

140 DATA "02CACB79FE03CAE979C3087A78FE202809CD187AFE4S2807E1E53600C3787916" • 380 

8 

130 DATA “433E9ACD2D7A3E43328D5CC378790434C3A47904343A783CCB4728070C2B3423". 283 
O 

160 DATA " C3A4790D2B3579F EFF20020C3423C3A47904343A037D91FE3230070C2B3423C3 • • 291 
3 

170 DATA " A4790D2B3579FEFF20020C3423C3A4793A047D90FE323OO4043418D705331BD3". 291 

2 

180 DATA "E3C5790F0F0F4FE6E0A86F79E603EE58677EC1E1C9E3C5F57A32803C3E02CD01", 427 

8 

8 

1998 DATA "END" 

1999 CLEAR 30999 

2000 LET mt-31000 
2010 RESTORE : LET a-mt 

2020 READ a*: LET m-0: IF a*-"END" THEN GO TO 9000 
2030 READ bum: FOR b-0 TO 31 

2040 POKE a+b.FN at): LET •-•♦FN •(» LET a*-a*<3 TO )i NEXT b 
2045 PRINT "ok "I100*10*INT C<o-mt)/32) 

2030 IF mumOs THEN PRINT "•rror I Iln(4 "1100+INT <<a-*t>/32>: STOP 
2060 LET a=a*32i GO TO 2020 

3000 DEF FN a<)-16*CC0DE a«(l)-48-<7 AND o*(1)>"9"))+CODE a*(2)-48-<7 AND a»<2)> 
"9") 

9000 SAVE "me""CODE 30000.315: VERIFY ""CODE 


10 DATA 056.124.012.123,023,027.251.123 
20 DATA 063.059.024.024.024.024.024.056 
30 DATA 031.123.096.106.224,003.000.010 
40 DATA 255. 085.255.238.068. 06e.068. 000 
50 DATA 028,062.048.222.232.216.223.222 
60 DATA 252.220.024.024.024.024.024.028 
70 DATA 248.222.006.086.007.160.000. 080 
80 DATA 000.000,000.002.006.006.006.006 
90 DATA 000.000.000,192.240,252.255.253 
100 DATA 255.255.255.000.096.006.048,003 
110 DATA 195.255.102.090.090.102.255.195 
120 DATA 060. 024.153.255.255.153.024. 060 
130 DATA 024. 036,090, 165.163.090.036. 024 
140 DATA 060. 036.255.165.165. 253.036. 060 
150 DATA 000. 000,060.126.126. 126.126. 060 
1000 RESTORE : FOR a=USR "a" TO USR "o"+7: READ b: POKE a.b: NEXT a 
2000 SAVE "ud**"CODE USR "a", 120 


Vi mangier COMMODORE 64 
programmer 

Har du lavet nogle gode 
programmer, og kunne du 
tcenke dig at tjene nogle hur- 
tige kroner? Sd send dem 
straks ind til SOFT SPECIAL. 
Vi kan tilbyde skattefrie ho- 
norarer, helt op til 1000 kro¬ 
ner. 

Send dit superprogram til: 
SOFT SPECIAL 
St. Kongensgade 72 
1264 Kebenhavn K. 


LYT TIL 
DATAVOICE 



Altom 


DflTfl 


Hver lordag kl. 
17-18 pa FM 
102,8 MHz i 
storkebenhavn 

Danmarks 

hotteste 

dataradio 

Produceres i samarbejde 
mellem The Voice og 
mdnedsbladet "Alt om Data" 










tneren 




Dette spil hedder eneren, tor- 
di compuleren simulerer ter- 
ningkast.an md lcsgge 0 jne- 
ne pd terningerne sammen. 
Ndr man har ndet et rimeligt 
antal. kan man Id sine points 
skrevet op - gar man ikke det, 
og sldr en ENER, vil de points 
man har samlet (og ikke skre¬ 
vet op) vcere tabt. Naturligvis 
kan der spilles Here. Og on- 
sker man at spille alene, spil- 
ler man mod computeren.D 
Tommy Christiansen 


><> 1 REN 

5 POKE 53280 ,2 - POKE 53281,13 
8 PRINT" <CLR>" 

10 PRINT"(CRSR NED15, CRSR H0JRE13, 

RVS ONJTRST SPACE" 

12 PRINT"(HONE,CRSR NEDS)" 

15 PR I NT "(CRSR H0JRE4)/—\ 1/—\ /— 
\ l/~~\ /'’“N 1/ \" 

20 PRINT"(CRSR H0JRE3) I II II 

II till" 

25 PR I NT "(CRSR H0JRE3) N_/ I I In— 

-/ I Is_/ I I" 

30 PRINT"(CRSR H0JRE3) I I II 

II II" 

40 PRINT"(CRSR H0JRE3, 

SPACE)\ /I I \ / I \ / 

I I" 

47 PRINT"(CRSR H0JRE3, 

SPACE2) — 

49 FOR A=55539 TO 55870:POKE A, 1 
:GET A$ : IF A$=" "THEN 85 
55 POKE A-100,2■'NEXT 
70 GOTO 49 
85 PRINT"(CLR)" 

87 INPUT "(ROD,CRSR NEDJHVOR NANGE S 
PILLERE : ";2 

88 IF Z>6 OR Z<1 THEN PRINT"(CRSR NE 
D)F0RKERT ANTAL SPILLERE (MAX. 6)" 

/ ' :GOTO 87 

90 PRINT"(CLR)":DIN NA$(Z),NP(Z) 

92 FOR 1=1 TO Z 

95 PRINT"(CRSR NEDS,CRSR H0JRE3)TAST 
SPILLER I "(CRSR VENSTREVS NAV 
N : "j:INPUT NAf(I) : NEXT I 
100 PRINT"(CLR)" 

120 CO=0 : X=0 
130 PRINT"(HONE)" 

140 T=INT(RND(1)*6)+1 
160 PRINT"(CRSR NED2,CRSR H0JRE10)SP 
ILLER = COMMODORE" 

180 PRINT"(CRSR NED2,CRSR H0JRE11)TA 


LLET BLEV (RVS ON)";T 
: FOR A=1 TO 300 : NEXT A 
:IF T=1 THEN 500 

200 CO=CO+T : IF C0>=22 THEN CP=C0+CP 
: GOTO 500 
220 GOTO 130 
230 PRINT"(CLR)" 

240 CO=0 : X=X+1 
250 PRINT"(HONE)" 

270 PRINT"(CRSR NED,CRSR HOJRE10)SPI 
LLER :(CRSR H0JRE2,RVS 0N)"jNA$(X> 
280 T=INT(RND(1)#6)+1 
290 PRINT"(CRSR NED4,CRSR H0JRE10)TA 
LLET BLEV (RVS ON)";T 
:IF T=1 THEN FOR 1=1 TO 400:NEXT 
:GOTO 500 

295 CO=CO+T:PRINT"(CRSR NED2, 

CRSR HOJRE10)DU HAR NU"; 

CO" POINTS" 

300 PRINT"(CRSR NED5,CRSR H0JRE3)SKA 
L DINE POINTS SKRIVES OP (J/N)?" 
310 GET A$:IF A$=""THEN 310 
315 IF A$="S"THEN END 
320 IF A$="J"THEN NP(X)=NP(X)+C0 
; GOTO 500 

325 IF A$="N"THEN 250 
330 GOTO 310 
500 PRINT"(CLR)" 

510 PRINT"(CRSR NED,CRSR H0JRE4)COMN 
ODORE HAR";CP;"POINTS" 

515 FOR 1=1 TO Z 

520 PRINT"(CRSR NED2,CRSR H0JRE4 )"/ 
NA$(I);" HAR";NP(I);"POINTS":NEXT 
530 PRINT"(CRSR NED2,CRSR H0JRE14, 

RVS ON)TAST SPACE" 

540 GET A$ : IF A$="S"THEN END 

545 IF A$<>" "THEN 540 

550 IF X=0 THEN 230 

560 IF X=>1 AND Z>1 AND X<Z THEN 230 

570 GOTO 100 
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Hukommelses- 


husker 


PROGRAM: f-EMORYL 1ST. 994-3 


■ Hvis du er dn af dem, der of- 
te er i tvivl om. hvorvidt der er 
plads til program og data i 
computeren, og du praver at 
skrive ?fre(8) eller lignende. 
fdr du et misvisende svar, ikke 
sandt? 

Med dette program er du helt 
fri for sddanne "overraskel- 
ser". Du skriver blot (efter kor- 
sel), SYS49152 og straks stbr 
der pd skcermen, hvor meget 
plads p'rogrammet fylder. 
hvor meget plads der er tilba- 
ge. og hvor meget arrays, va- 
riabler og lignende, der er 
brugt. □ 

Thomas Ravn 





10 REM *********************** 

20 REM * MEMORY-LISTER * 

30 REM * * 

40 REM * AF THOMAS RAVN 1995 * 

50 REM *********************** 

60 : 

70 FOR T=49152 TO 49337*READ A 
* POKE T , A 
80 CK =CK + A:NEXT T 
90 * 

100 IF CK<>17899 THEN PRINT-DATA FEJ 
L!'* STOP 
1 10 * 

120 PRINT*< CLR >DATA OK!" 

130 PR INT * PR INT 

140 PRINT *SYS< 49152 > FOR AT FAA EN L 
ISTE OVER" 

150 PRINT*- BRUGEN AF HUKKO 

MELSEN.* 

160 PRINT * END 
170 * 

180 DATA 169,115,160,192,32,30,171, 
56,165,45,229,43,170,165,46,229, 
44,32,105 

190 DATA 192,160,192,169,128,32,30, 
171,56,165,47,229,45,170,165,48, 

229.46.32 

200 DATA 105,192,160,192,169,141,32, 
30,171,56,165,49,229,47,170,165, 
50,229,48 

210 DATA 32,105,192,160,192,169,154, 
32,30,171,56,165,55,229,51,170, 
165,56,229 

220 DATA 52,32,105,192,160,192,169, 

167.32 ,'30,171 ,56,165,51 ,229,49, 
170,165,52 

230 DATA 229,50,32,105,192,169,13,76 
210,255,32,205,189,169,103,160, 
136,76,30 

240 DATA 171,13,80,82,78,71,82,65,77 
32,32,58,32,0,13,86,65,82,73,65, 
66,76,69 

250 DATA 82,58,32,0,13,65,82,82,65, 
89,39,69,82,32,58,32,0,13,83,84, 
82,69,78 

260 DATA 71,69,32,32,58,32,0,13,70, 
82,73,32,32,32,32,32,32,58,32,0, 
32,66,89 

270 DATA 84,69,0 
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Grand 

Marathon 

Der er nerver pd i dette Grand 
Prix spil til enten Lambda, Ma¬ 
rathon eller Power 3000. Et er, 
at du skal kare gennem en 
svcer bane pd den korteste 
tid. Noget andet er, at du bli- 
ver torment adgang til en ny 
omgang, hvis du ikke er god 
nok med et joystick. 

Som ncevnt er der ikke etter- 
ladt plads til amatorer. men 
prov nu alligevel: Det kunne 
jo vcere, at netop DU var den 
heldige vinder at Grand Prix 
pokalen. Jargen Bundgaard 

1 HEM "JORGEN BUNDGAARD" 

2 LET HP=0 

6 GOSUB 4000 
1G LET A= 100 
11 CLS 

15 LET B= 100 
2G LET BI=1 
25 LET IL=15 
30 LET TID=100 
35 LET 1*1=0 
40 LET ?0=0 

70 PRINT AT 1S> 0; "tZ.ILffiltS. 




171 RETURN 

172 PRINT AT 7ft. A; 11 jEBBBaMBBEBSBBaaaS 

173 RETURN 

175 RETURN 


177 RETURN 

173 RETURN 

ISO PRINT AT ?Q. ft: 11 KBeMfUBwaaeffi'aninMa 
131 RETURN 

-jjsjm lsss^sjsis' 1 

133 RETURN 

m amai jPSffPhi WW 

135 RETURN 

194 PRINT AT 20. 0i"MMMHKBMMB0B8 

«i£ii2S BKBaBBiaB" 

195 RETURN 

196 PRINT AT 20, 0; 11 

aata aiiiiLLtaa 1 ’ 

197 RETURN 

198 PRINT AT 20, 01 "a3Uffia££S^ 

BBBB mm 

199 RETURN 

uus ibhmbbm" 

241 RETURN 

242 print at 20, os" 

saa i M if-fTMt?" 

243 RETURN 

244 PRINT AT 20, 0i" WmiBSiUSi&W'WXS, 

isi maaaittaii'' 

245 RETURN 

issxc^astLaaai’' 

247 RETURN 

24S PRINT AT 20, 0! " nKBHUSBmia 


243 RETURN 

250 PRINT AT 20,0;"i 


251 RETURN 

252 PRINT AT 20, 0; 11 mffiiEIgtMlBn 

T Tf'T jlTStl j IliiTI ‘' 

253 RETURN 

254 print at 20, os"aBamia2asi« 

255 RETURN 

256 PRINT AT 7ft. Os '■ 


257 RETURN 

290 PRINT AT 7ft. ft; ■' nw-snaiBBaa-- 

291 RETURN 

292 PRINT AT 20, 0; " —HHmHgB«R—- 


293 RETURN 
3O0 STOP 

1000 GOSUB A 

1001 PRINT AT BI, IL 5" " 

1002 LET Y=RND 

1003 IF Y). 2 THEM PRINT AT 20, I NT (C 
Yh<14) + 10) i 

1004 LET Q=PEEK (PEEK 16398+256*PEE 
K 16399) 

1005 IF Q(>128 AND Y> . 2 THEN PRINT 
AT 20,INT <CY*14)+1©>5"H" 

1006 IF INKEY*="5" OR INKEY*="S" T 
HEN GOSUB 3000 


48 0 # 












1007 IF INKEY*="7“ AND BI<1S THEN 
LET BI=BI+1 
1000 SCROLL 
1O0S LET B=B+2 

lO10 IF B <170 THEN GOTO 1030 


1011 IF B>135 AND B<133 THEN GOTO 1 
03© 

1012 IF B>133 AND B<24© THEN GOTO 1 
030 

1013 IF B> 256 AND B<290 THEN GOTO 1 

030 

1014 IF B> 232 THEN LET B=100 
1G20 LET A=B 

1035 PRINT AT BI.1L! 

1040 LET S=PEEK (PEEK 16398+256*PEE 
K 16333) 

1042 IF S=22 THEN LET M=M+1 

1043 IF S=22 AMD TID <9© THEN LET TI 
D==TID-+'iO0 

1045 PRINT AT BI.IL»"V H 

1050 IF SO© AND SO 22 THEN GOSUB 3 

1OO 

1070 IF M>0 THEN LET TID=TID-1 
1075 IF TID <21 THEN PRINT AT 0,2J M t 
id" A 

.1.000 IF TID <0 THEN GOTO 3300 < 

IlOO LET P0=P0+(BI/2) I 

2OO0 GOTO 1000 J 

3002 LET IL=IL+(INKEY*= ,, 8" AND IL< 
30)-(INKEY$= 11 5" AND IDS) 

30G3 IF BI> 2 AND RND>.7 THEN LET BI 
--BI-1 

3005 RETURN 

3100 LET BI=1 

3120 LET TID=TID-20 

320O RETURN 

3300 LET PO=INT PO 

3310 IF PO)HP THEN LET HP=PO 

3320 PRINT AT 5. 1 ! "POINT" 

3330 PRINT AT 7,2;PQ 

3340 PRINT AT 10, 1S"H.POINT" 

3350 PRINT AT 12,2!HP 
3360 PRINT AT 15, lf'NYT LOB" 

3370 PRINT AT 16,2i"(J/N)" 

3300 IF INKEY$="J" THEN GOTO 10 
3390 IF INKEY*="N" THEN GOTO 5 
3400 GOTO 33S0 

4000 PRINT AT 3,4;"/*. £*"1 /*. I* 1 . 

i S L IS" 

4010 PRINT AT 4,4;"J tmJi *— 1 1—’ 

B nil" 

4020 PRINT AT 5,4 ;"%■.■ IM V 3 \ 

U g »a" 

4430 PRINT 

4440 PRINT " iS. 

JPjj®" 

4450 PRINT " 

JOT 

4460 print m Mjgycc-iwy/gr- 


4470 PRINT 

IIU" 

4400 PRINT 

icm." 

4490 PRINT 
EH " 

4500 PRINT 


-JEELglU B -aagzs 


-J . SEES’""** 


*££2 Li . 




4580 PRINT "* 

Ht" 

4590 NEXT X 

4600 PRINT "********************* 
***********" 

4610 PRINT AT 2,12!"CAR RUN" 

4612 PRINT AT 4,2!"DU SKAL I DIN R 
ACERBIC *V*" 

4614 PRINT AT 5,2!"KORE IGENNEM EN 
BANE UDEN AT" 

4616 PRINT AT 6,25"RAMME KANTERME 
ELLER DE ANDRE" 

4613 PRINT AT 7,2l"BILER *H*." 

4620 PRINT AT 8,2l"DU HAR ET VIST 
RUN TID,SON DU" 

4622 PRINT AT 9,21"SKAL KORE BANEN 
IGENNEM PAA" 

4624 PRINT AT 10.2;"0G HVIS DU IKK 
E MAAR DET.ER" 

4626 PRINT AT 11,2!"L0BET SLUT. DU 
FAflR MERE TID" 

4628 PRINT AT 12,2S"HVER GANG DU H 
AR KORT EN DM-" 

4630 PRINT AT 13,21"GANG." 

4632 PRINT AT 14,2;"DET KOSTER MEG 
ET TID AT RAMME" 

4634 PRINT AT 15,2;"IND I NOGET,OG 
DET KOSTER " 

4636 PRINT AT 16,2!"LIDT TID AT DR 
EJE" 

4638 PRINT AT 17,2;"DU DREJEft MED 
PILENE 5 OG S, " 

4640 PRINT AT 1S,2;"0G RYKKER FREM 
PAh BANEN MED" 

4642 PRINT AT 19,2i"PIL 7, SOM GIV 
ER FLERE POINT. " 

4650 PRINT AT 20,15;"TAST EN TAST. 


4510 PRINT "aaceaaaaaaaaaaaaaaaaaa 
c0cfiaa®saaa!aa" 

4550 PAUSE 500 

4560 PRINT AT 0, O! "**************it 

J.J.; It 

4570 FOR X=1 T020 


4700 PAUSE 4E4 
4710 RETURN 
4S00 SAVE "CAR RUn’ 
4S10 RUN 




TIC TAC 




1 GOTO 4 

2 OPEN 1,8.. 15, "S : TIC-TRC" = CLOSE 1 

3 SAVE"TIC-TAC",8 

4 REM RF ANDERS NRTTESTRD 
10 POKE 53281,9-POKE 53286,9 

• POKE 646,7 
28 PRINT"<CLR>" 

1000 

$$$ 

1610 REM*** OPSTILLE START-POSITION 
*** 

1020 

1030 # FOR 1=1 TO 6 
1640 READ A,B,V 

1056 FOR X=A TO B : POKE 1024+X+40*Y,67 

• NEXT X 
1060 NEXT I 

1070 FOR 1=1 TO 6 
1080 READ A,B,X 

1090 FOR V=A TO B : POKE 1024+X+40*V,66 
•NEXT V 
1160 NEXT I 
1110 FOR 1=1 TO 12 
1120 READ A,B,C 
1130 POKE 1024+A+40*B,C 
1146 NEXT I 
1156 FOR 1=1 TO 8 
1160 READ A,B,V 
1170 FOR X=A TO B STEP 3 

:POKE 1024+X+40*V,81 ; NEXT X 
1180 NEXT I 

1190 POKE 1523,46 : POKE 55795,6 
2600 REM**************************** 
*** 

2610 REM*** LED EFTER STARTSTED ****• 
#** 

2026 


COMMO 

n 

DOM 

— j 

64 

3 




1 


2116 


2136 

2146 

2150 

3600 


■ Spillet bestir at en plade 
med 32 pinde og et hul i mid- 
ten . Det gcelder si om at flytte 
og tjerne pinde sidan at den 
sidste pind flyttes ind i det mid- 
terste hul. Reglerne er at man 
kun mi flytte en pind hen 
over en anden, der si skal 
tjemes. 

Programmet krcever joystick i 
port 2, og hvis man vil stoppe 
spillet. kan det gores med □ 
mellemrum og return.□ 
__ Anders Natlestad 

THEN 2640 

IF JOV<0 THEN POKE 55296+(A-162 
4),6X=X1 :V=V1 GOTO 3006 
:REM BEVAEGELSE 

2120 POKE 55296+X+40*V, 7 ; REM GUL 

POKE 55296+(A-1624 >,6:REM SORT 
X=X1:V=V1 
GOTO 2040 

REM**************************** 
*** 

3016 REM***** 

*** 

3620 
*** 

3036 FOR 1=1 TO 160:NEXT I=JOV=0 
3040 JO t= PEEK C56320 "'-117 
: IF JOV=10 THEN 3030 
3650 X1=X-(3*(JOV=2 >> + <3* <JOV=6)> 

V1=V-< 3*<J0V=8>> + (3* <JOV=9>> 
X2=X-<6*(J0V=2>) + C6*(J0V=6> > 
V2=Y-< 6* CJ0V=8>> + <6*<J0V=9 >> 

A=1024+X1+40*V1 
B=1024+X2+40*V2 

IF PEEKCA>081 OR • PEEK<B>046 T 
HEN POKE 55296+X+40*V, 0 •' GOTO 2040 
3120 POKE 1024+X+40*V,46 
:POKE 55296+X+40*V,7 
3136 POKE A,46 
B, 81 

B,81:POKE 55296+<B-1024>,6 
V=Y2 


BEVAEGELSE ********* 


3060 

3670 

3086 

3690 

3100 

3116 


POKE 

POKE 

X=X2 

GOTO 


2040 


3146 
3156 
3166 
3176 
4000 
.*** 

4010 REM******.* 

*** 

4020 REM**************************** 
*** 


D A T A ******* 


2636 X=19 : V=12 
2046 .JOV=PEEK 56320 >-117 
2050 GET AT : IF A$=CHR$<32>THEN PRINT 
"<CLR>" : END 

2055 IF A$=CHR $<. 13>THEN RUN 

2066 IF JOV=10 THEN 2046 

2070 X1=X- ( 3* <J0V=2> > + (3* CJ0V=6> > 

2080 V1 =V- < 3* JOV=8 > > + < 3* < J0V=9 > > 

2096 A=1024+X1+40*V1 

2160 IF PEEKCA>081 AND PEEK<A>046 


4030 DATA 15,23,1,9,13,7,25,29,7,9, 
13,17,25,29,17,15,23,23 
4640 DATA-8,16,8,8,16,30,2,6,14,2,6, 
24,18,22,14,18,22,24 
4050 DATA 14,1,112,8,7,112, 24,17, 1.12, 
24,1,110,30,7,116,14,17,116,24,7, 
109 

4660 DATA 14,23,109,8,17,169,14,7, 

125,36,17,125,24,23,125 
4076 DATA 16,22,3,16,22,6,16,22,18, 
16,22,21,16,28,9,10,28,15,16,16, 
12,22,28,12 



















































































IRON 



IBM 


■ I spillet *TRON* styrer du en 
motorcykel rundt pb en af- 
graenset bane. Du mb ikke 
ramme hverken din mod- 
stander eller din egen »stribe«. 
»TRON« har vceret bragt til 
ncesten alle microer, sb det 
var ogsb pb tide det kom til 
PC'erne. 

Spillet byder pb valg mellem 
2 hastigheder plus valg at vin- 
dende pointtal. 

Karslen at »TRON* krcevergra- 
tisk adaptor. Degrafiske tegn 
opnbs ved at holde ALT nede, 
hvorefter nummeret pb det 
anskede graiiktegn indta- 
stes.D 

Sotus Macskassy 



320 DCF SEG—LH40i POKE «<Hl A, PEEK (fcHlCH DCF SEC 
330 LOCATE 23, 331 PAINT “TRYK PAA SPACE ” | I LOCATE 1, 


30 REM **««« TRON - Sotus Macskassy. ««««« 

40 REM Hill Lsvst d. 1/7 - 1983 ttttt 

30 REM ttttt Til Drug krasvss dar mn Color /Or sphlcs ttttt 

60 REM Hill Monitor adapt mr og an Gr at I k-skaara. •«««* 

70 REM Hill Hill 

80 REM ttttt I IInlarna 130-210 og llnltrm 481-487 Mitt 

90 REM ttttt mr dmr gratlsk* tagn 1. Dm taar du vad ttttt 

lOO REM Matt at trykka <og holds) Alt nsd, lndtaat ttttt 

110 REM ttttt nuMMsrat paa dat tagn du vl1 hava, - ttttt 

120 REM atatt Drug tastarns til hojra - og slip Alt. ttttt 

130 REM ttttt ttttt 

140 rem tttttitatttaiataattttttaattttttttttttttaatatitttttttttt 

130 CLSiSCREEN OiWIDTH 80iKEY OFF 

160 DEF BEG-1.H40I POKE LH1 A, PEEK1 JH1C) i DCF BEGi 6S-* “ i DS-0 
170 LOCATE 12,23,OiPRINT "Er datta an farva-aonltor 7 <J/N) * 

180 WHILE Bt- aa iBS-INKEYt.N£ND 

190 IF BS- a N a OR 8S- a n a THEN F-O.C-1IBS---.GOTO 210 

200 IF BtO-J” AND ISO-J- THEN 8S- a " i C-Oi BEEP i GOTO 180 ELSE F-li8t--“ 
210 IF F-l THEN COLOR 9. 11 CL8i LOCATE 1 ELSE COLOR 0, 7, Oi 0.8. LOCATE 1 
220 PRINT 
230 print 


fcH40i POKE LHlA.PEEKtLHlC) iDEF BEGiS»-“'iDS 
2.23,OiPRINT “Er datta an «arva-aonltor 7 
- aa i8S-INKEYt.NEND • 


^^^»RINT 
m PRINT 
io PRINT 


300 DCF SEG-LH401 POKE *H1 A, PEEK (I.H1C) • DEF SEG 

310 LOCATE 12,23,OiPRINT "Instruktlonar om splilat 7 <J/N) - 

320 WHILE St-""180-INKEYSiWEND 

330 LOCATE 12,23iPRINT STRINGS<40,32) 

340 IF 8S--N- OR 8S- a n a THEN CLSi SS- a • i GOTO 330 

33© IF 8SO-J" AND 8SO-J" THEN 8S- aa 1 BEEPi GOTO 310 EL8E BS- aa 

360 LOCATE 9,1IPRINT STRINGS(80,■-■>| 

37© PRINT " I splilat TRON skal dar vaara to splllsra, hvora* kun an at dM 

Forladar a | 

$G0 PRINT a splilat 1 liva. Da skal kora rundt paa aotorcyklar, dar aFtarladar 
an lys- "j 

390 PRINT a strlba bag slg. Da skal undgaa at kora lnd 1 i dsras agan lysstrlb 
a, aod- a | 

400 PRINT a standarans lysstrlba, og MUREN. Hvls do gor dot| DOR DE !!! 

•| 

410 PRINT STRINGS(80, a — a »| 

420 PRINT a 1. 8PILLERS TASTER 2. 6PILLERS TAST 

ER a | 

430 PRINT 8TRINGS <80, a — a )| 

440 PRINT a Wi OP C l OP 


480 PRINT STRINGS(80,*-")| 

490 PRINT " BEMAERK i DER SKAL .BRUGES EN COLOR/GRAPHICS MONITOR ADAP 

TER a | 

300 PRINT " OG 6RAFIK-SKEARM TIL DETTE SPIL. a | 

310 IF PEEK (6H410) —6H3© THEN BEEPi PRINT - - OG DET HAR DU IKKE ■!! a |iEN 


640 DEF 8EO-H«40i POKE Uil A, PEEK (VH1C) I DEF 6E0-01 POKE LH417.64 
630 IF D8-I THEN 700 

660 LOCATE lO.llIMW *1. Splllors navn i -.NAVN1S 

670 NAVNIS—LEFTS(NAVNIS,8)iPl—© 

680 LOCATE 11, li INPUT "2. Splllors n*vn i -.NAVN2S 

690 NAVN2S-LEFTS(NAVN2S,8)iP2-0 i 

700 LOCATE 12,llINPUT a Hvad vl1 1 spills til <1-10) i a ,8 
710 IF G<1 OR 0>10 THEN DEEPiGOTO 720 

720 LOCATE 13,liI)#*UT -Fart (0-1) <0 or hurtlgst) i a ,S 

730 IF 8<0 OR S>1 THEN BEEPiGOTO 700 

740 DEF SEG-LH401POKE W(1A,PEEK (VM1C)I DCF SEG 

730 CLSiSCREEN 1,ClCOLOR F.F 

760 LOCATE 12,13iPRINT "TRYK PAA SPACE- 

770 WHILE INKEYS< >08tS (32) ■ WEND 

780 L1NE<3,3)-<317,187),3,BF 

790 LINE<8,8)—(312,181),0,BF 

800 R1-1.R2-1.Xl-3©.Yl-lOO.X2-270.Y2-10G 

810 LOCATE 23, 2l PRINT USING a \ \ I 1 NAVN1*|PI | 

820 LOCATE 23,231PRINT USING a \ \ i , )MVN2S|P2| 

830 BS-INKEYSiIF 6S-" a THEN 920 

840 IF 8S- a 8 a OR SS- a s a T»«N Rl-l 

830 IF SS-“| a THEN R2-1 

860 IF SS- a W- OR SS- a H" T)CN Rl-2 

870 IF SS- a C a THEN R2-2 

880 IF SS--A" OR Ss-"a" THEN Rl-3 

890 IF SS--• a THEN R2-3 

900 IF BS- a Z“ OR SS- a i a T>CN Rl-4 

910 IF SS-"/ a THEN R2-4 

920 FOR 1-1 TO BISOlNEXT 

930 IF Rl-l THEN Xl-Xl+3 ELSE IF Rl-2 THEN Yl-YI-3 ELSE IF Rl-3 THEN Xl-Xl-3 ELS 
E IF Rl-4 THEN Y1-Y1*3 

940 IF R2-1 THEN X2-X2-3 ELSE IF R2-2 THEN Y2-Y2-3 ELSE IF R2-3 THEN X2-X2+3 EL8 

E IF R2—4 THEN Y2-Y2-3 

930 IF (X1-X2) AND (Y1-Y2) THEN 1010 

960 IF POINT (XI,Y1)<>© T>«N 1020 

970 IF POINT<X2,Y2)<>© THEN 1040 

98© LIX <X1—2,Yl-2)—<Xi*2,Yl*2),1,BF 

990 LINE <X2-2,Y2-2)-(X2*2, Y2»2),2,BF 

lOOO GOTO 83© 

1010 CCSlLOCATE 12,12.PRINT "UAFGJORT-iFOR 1-1 TO 2000lNEXT iGOTO 1030 

1020 IF POINT<X2,Y2><>© THEN 1010 ELSE CCSiLOCATE 12,3iPRINT NAVNIS,- TABTE DENN 

E OMBANG ••! a IP2-P2*1iFOR 1-1 TO 2000iNEXT 

1030 GOTO 1030 

1040 IF POINT(X1,Y1)<>© THEN 1010 ELSE CLSiLOCATE 12,3lPRINT NAVN2S, a TABTE DENN 

E OMBANG !!!"iP1-P1*1iF 0R 1-1 TO 2000iNEXT 

1030 IF PI—G THEN 1080 ELSE IF P2-G THEN 1090 

1060 DEF SEG-LH4G:POKE EH1A,PEEK(LH1C)iDEF SEG-0 

1070 SCREEN OiWIDTH BOiBOTO 720 

1080 LOCATE 13,3iPRINT NAVNIS,- VANDT !!! a iOOTO 1100 
1090 LOCATE 13,3iPRINT NAVN2S,- VANDT •••- 

1100 FOR 1-1 TO 25001NEXT .SCREEN ©.WIDTH 80iLOCATE 12,23,0 
111© DEF SEG-IH4©! POKE U41 A, PEEK (LH1C) i DEF SEG-Q 
1120 INPUT “Vll 1 spills aod hlnandan Igan (J/N) 7 - S ,SS 
1130 IF LEFTS(SS,l)- a J a OR LEFTS(SS,1)- a J- THEN DS-l.GOTO 1160 
1140 IF LEFTS (BS, 1)-“N“ OR LEFTS (SS, 1)- a n a THEN DS-O.GOTO 1160 
1130 BEEPiLOCATE 20,32.PRINT "Forkart svar •!!-.GOTO 111© 

116© PI—OiP2 —OiGOTO 33© 
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Program 

kartotek 


■ Otte har en "hjemmecom- 
puter treak' * et syndigt rod i si¬ 
ne programbdnd, hvilket 
sommetider resulterer i, ai et 
vigtigt program lorsvinder. el- 
ler slettes. Programmet som vi 
her viser, er et program karto¬ 
tek. beregnet til Amstrad, og 
det kan bruges til bdde bdnd 
eller diskette. Man kan tor eks- 
empel indtaste programmets 
titel, placeringen pa bdnd, 
bdnd nummer, og pd hvilken 
bdndside programmet ligger. 
En anden tunktion i program- 
met er. at man kan Id alle tit- 
lerne samt deres placering 
udskrevet. □ 


Henrik Rennest 









10 ’ 

20 ’ PROGRAM-KARTOTEK 
30 ’ 

40 ’ LAVET I AUGUST/1985 
50 ’ 

60 ’ AF HENRIK RCNNEST. 

70 ’ 

80 MODE 2:INK 0.OsBQRDER 0:INK 1,26:PEN l:PAPER 0:DIM NA*(500),NR*(500),BP*(500) 
, DK*(500) 

30 INPUT "SKAL DER HENTES GAMLE DATA (J/N) : ",NY*slF UPPER*(NY*)="J" THEN 100 E 
LSE 140 

100 OPENIN' 1 P-DATA" :FDR G=0 Tb,»501 

110 LINE INPUT#9,NA*(G):LINE.INPUT#9,NR*(G>:LINE INPUT#9,BP*(G)sLINE INPUT#9, DK* 
(G):AN=G 

120 IF E0F=0 THEN NEXT G ELSE 130 
130 CLOSE!N 

140 CLS:RESTORE:TEKST*="PROGRAM-KARTOTEK. LAVET AF HENRIK RONNEST. AUGUST/1985. 

AMSTRAD CPC 464.":GOSUB 450:’ RAMME-RUTINE 
150 FOR G=2 TO 8 STEP 2:READ MENU*:LOCATE 20,G+6:PRINT G/2": ";MENU*:NEXT G 
160 DATA INDSKRIV NYE DATA.,SE ALLE TITLER.,GEM DATA PAA BAAND/DISKETTE.,SE DATA 
OM ENKEL TITEL. 

170 PRINT CHR*(7) :LOCATE 21 , 20< INPUT "ANGIV NUMMER : “,NR:IF NR<1 OR NR> 4 THEN 1 
70 

180 CLS:0N NR GOTO 190,280,330,500 

190 TEKST*="INDSKRIVNING AF NYE DATA.KENDES DE ONSKEDE DATA IKKE, SAA TRYK ENTER 
. "sGOSUB 450 

200 ’ INDSKRIVNING AF NYE DATA 

210 LOCATE 2,4SLINE INPUT "PRQGRAMNAVN : ", NA*(AN):IF NA*CAN)="" THEN NA*(A 

M) ="UKENDT" 

220 LOCATE 2,5:LINE INPUT "BAAND NR + SIDE : ",NR*(AN):IF NR*(AN)="" THEN NR*(A 

N) ="UEKNDT" 

230 LOCATE 2,6:LINE INPUT "BAAND PLACERING : ",BP*(AN)sIF BP*CAN)= U “ THEN BP*(A 
N)="UKENDT" 

240 LOCATE 2, 7:LINE INPUT "DISK.NR + SIDE : “,DK*(AN):IF DK*(AN)="" THEN DKtCA 
N)="UKENDT" 

250 LOCATE 2,10:INPUT "ER DISSE DATA I ORDEN (J/N) : ",KK* 

260 IF UPPERS(KK*)<>"J" THEN CLSsGOTO 190 ELSE AN=AN+1 
270 GOTO 140 

280 TEKST$="UDSKRIVNING AF ALLE TITLER. BRUG MELLEMRUMS-TASTEN FOR PAUSE. ":GOSUB 
450 

290 LOCATE 1,5:F0R G=0 TO AN-1 SPRINT USING "#### "SG;SPRINT NA*(G) 

300 IF INKEY(47)=0 THEN GOSUB 490 
310 NEXT Gs PRINT" 

TRYK PAA ’ENTER’" 

320 IF INKEY(18)=0 THEN 140 ELSE 320 
330 ’ OUTPUT PAA DISKETTE, ELLER BAAND 

340 TEKST*="UDLAESNING AF PROGRAM-DATA PAA DISKETTE, ELLER BAAND.":GOSUB 450 
350 LOCATE 2,5s PRINT “INDSAET BAAND/DISKETTE, HVORPAA DATA SKAL UDLAESES. DEREFT 
ER TRYK ENTER" 

360 IF INKEY(18)<> 0 THEN 360 
370 LOCATE 2,7:0PEN0UT "P-DATA" 

380 FOR G=0 TO AN 
390 PRINT #3,NA*(G) 

400 PRINT #9,NR*(0) 

410 PRINT #9,BP*(G) 

420 PRINT #9.DK*(G) 

430 NEXT G:CLOSEOUTsGOTO 140 
440 END 

450 ORIGIN 0,OsDRAW 0,390:DRAW 639,390:DRAW 639,0:DRAW 0,0 
460 LOCATE 2,2SPRINT TEKST* 

470 ORIGIN 0, 364:DRAW 640,0 
480 RETURN 

490 IF INKEY(47)=0 THEN RETURN ELSE 490 

500 TEKST*="INDSKRIV PRQGRAMNAVN, OG AMSTRAD VIL PROVE AT FINDE DATA OM PROGRAMM 
ET"'sGOSUB 450 

510 LOCATE 2,5:INPUT "PRQGRAMNAVN : ",SG* 

520 FOR G=0 TO AN 

530 IF 5G*=NA*(G) THEN 550 ELSE NEXT GsLOCATE 2,22s PRINT "DATA IKKE FUNDET. TRYK 
’ENTER’." 

540 IF INKEY(18)<> 0 THEN 540 ELSE 140 

550 CLSsTEKST*="DATA OVER "+NAS(G)sGOSUB 450 

560 LOCATE 2,5s?RINT “TITEL : “5NA*(G):R*(0)=NA*(G) 

570 LOCATE 2.6SPRINT "BAAND NUMMER + SIDES »iNR*(G):R*(1)=NR*(0) 

580 LOCATE 2,7:PRINT "BAAND PLACERING s "SBP*(G)sR*(2)=BP*(G) 

590 LOCATE 2,8:PRINT "DIgK-NR + SIDE s “sDKS(G):R*(3)=DK*(G) 

600 LOCATE 2.HslNPUT "SKAL DATA RETTES SAA TRYK ’ R’, ELLERS ’ENTER’ :",LL*:IF U 
PPER*(LL*)="R" THEN 610 ELSE 140 

610 TEKST*="RETTE SYSTEM. SKAL ENKELT-DATA IKKE RETTES, SAA TRYK ’ ENTER’.":GOSUB 
450 

620 LOCATE 23.5SLINE INPUT"",NA*(G):IF NA*(G)="" THEN NA*(G)=R*(0) 

630 LOCATE 23.6SLINE INPUT"",NR*(G):IF NR*(G)="" THEN NR*(G)=R*(1) 

640 LOCATE 23.7SLINE INPUT"”,BP*(G):IF BP*(G)=“" THEN BP*(G)=R*(2) 

650 LOCATE 23, 8SLINE INPUT" ", DK*(G) : IF DK*(G)= ,,M THEN DK*(G) = R*(3) 

660 GOSUB 140 
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Variabel-skriver 


■ Programmet (oi alle "eks- ' 
perter" - hvorior nu det? 

Joh, tor med dette program 
kan du (6 udskrevet alle vari- [ 
abler, ogderesvcerdier. Sdle- 
des kan du rette i program¬ 
mer. sd de passer til dine be- 
hov. Programmet startes (og 
kores) med SYS49152. □ 

Thomas Ravn 


COMMO 

DO« 
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10 REM *********************** 

20 REM * DUMPER 64 * 

30 REM * * 

40 REM * AF THOMAS RAVN 1985 * 

50 REM *********************** 

60 : 

70 FOR T=49152 TO 49343:READ A 
:POKE T,A 
80 CK=CK+A:NEXT T 
90 : 

100 IF CK<>22287 THEN PRINT"DATA FEJ 
L ! ":STOP 
1 10 : 

120 PRINT"< CLR)DATA OK!“ 

130 PR INT:PR I NT 

140 PRINT* SYS< 49152 > FOR AT FAA EN 
LISTE OVER" 

150 PRINT" - ALLE VAR I ABLER 

OG OERES" 

160 PRINT" VAERDI." 

170 : 

180 END 
190 : 

200 DATA 165,45,.164,46,133,20,132,21 
196,48,208,2,197,47,176,24,105,2, 
144,1 

210 DATA 200,133,34,132,35,32,70,192 
32,122,192,138,16,7,32,131,192,78 
53,192 

220 DATA 96,152,48,6,32,147,192,76, 

53.192.32.156.192.169.13.32.210, 
255,165,20 

230 DATA 164,21,24,105,7,144,193,200 
176,190,160,0,177,20,170,41,127, 
32,210 

240 DATA 255,200,177,20,168,41,127, 
240,3,32,210,255,138,16,17,152,48 
10,169 

250 DATA 42,32,210,255,104,104,76,53 
192,169,37,208,78,152,16,4,169,36 
208,71 

260 DATA 96,32,210,255,169,32,32,210 
255,169,61,208,58,160,0,177,34, 
170,200 

270 DATA 177,34,168,138,32,149,179, 
76,150,192,32,166,187,32,221,189, 
76,30,171 

280 DATA 32,187,192,160,2,177,34,133 
37,136,177,34,133,36,136,177,34, 
133,38 

290 DATA 240,10,177,36,32,210,255, 

200.196.38.208.246.169.34.76.210, 
255 




Rock'n Wrestle-the first truly 3 dimensional combat sports simulation game. 
Dynamic graphics, state-of-the-art animation, 1 and 2 player mode, brilliant gameplay, 10 
different opponents and complete rock sound track. More joystick moves than you Imagined, 
possible-over 25-lncludlng the atomic drop, aeroplane spin, plledriver, body slam, back breaker, 
arm twist elbow drop and tumbuckle fly: 

Rock’n Wrestfe-the challenge begins here! 




























Det nye 

Inner jeg IKKE ud! 



Venneme ma selv ga i kiosken og kobe nr. 3. 

- hvor de kan leese: Stortest af AMIGA - den professionelle spillemaskine. 

Sadan styrer Commodore fremtidens loservideo. Hvordan er CP/M 'en pa 
den nye 128'er. 64'eren lover ogsa lokal-TV. Tips til CI28, C64, 06, Plus4 
og VIC20. Masser afnyheder, anmeldelser og programmer - lige til at taste 
ind. Stor konkurrence, hvor du kan vinde en mus og 25 superspil, samt 
meget meget mere. 

Fas nu ikioskerne. Pris kr. 29,85. 


COMputer - for DIG og din COMMODORE 



